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I. INTRODUCTION 


A. BACKGROUND 

The dining facilities aboard naval vessels generally referred to as 
messing facilities, are grouped into the two distinct categories of General 
Messes and Private Messes. This thesis is directed towards automating the 
transaction processing in the area of Private Messes and generally providing 
improved decision support to the Mess Treasurer. Officers and Chief Petty 
Officers are authorized to establish private messes and today every naval 
vessel maintains. at least one and sometimes several private messes. The 
membership of these messes is restricted by regulation and the costs of 
operation are borne by the membership on a prorated basis. As will be 
discussed later, the methods for such prorating of costs can vary from one 
mess to another. The assets held by each mess can range in value from 
several hundred dollars in small messes to several thousand dollars in the 
larger ones. The financial management of the mess is performed by an 
elected Mess Treasurer from within the membership of the mess. In some 
cases, however, enlisted personnel meeting regulatory requirements may be 


appointed. 


B. PROBLEMS WITH THE CURRENT SYSTEM 

On the vast majority of ships the position of Mess Treasurer is held as a 
collateral duty for officers already burdened with other responsibilities. Most 
officers assigned as Mess Treasurer also have responsibilities as division 


officers, underway and inport watchstanders, as well as professional 


development requirements. The problem of maintaining accurate records 
has been further aggravated by the frequency with which the job is rotated 
and the time required to become proficient at performing the associated 
tasks. The financial records keeping function is currently based on a 
manual system requiring long hours of repetitious and tedious data entry 
followed by cumbersome report generation. The Mess Treasurer function 
involves many issues such as inventory management, procurement, billing, 
cash collection and disbursement of funds. In most cases the officer assigned 
to the function has little theoretical background or operational training in 
these areas resulting in inaccurate financial statements, improper 
safeguarding of assets and excessive time and energy spent in an effort to 


properly correct and maintain the financial records. 


C. OBJECTIVES 

This thesis examines in close detail the structure and design for an 
automated system that can be used to maintain the financial records of all 
private messes aboard ship. Issues concerning regulatory requirements and 
the technical publications describing procedures to accomplish those 
requirements were explored to determine the true nature of the system. 
Based upon a graphical representation of the system structure and functions 
as shown in Appendix A, decisions were made as to automation boundaries 
and development schedules. The proposed design, designated PMAs, was 
prototyped using database development language. The test and evaluation 
phase used this prototype to provide data necessary in answering the 


research questions and supporting the recommendations and conclusions. 


D. 


THE RESEARCH QUESTIONS 


The thesis research is directed at seven specific questions of interest and 


concern to the Mess Treasurer. These questions include: 


What information can be provided to support improved financial 
management? Is information available but not in a form usable to the 
Mess Treasurer? 


Can the level of expertise required to operate the system be significantly 
reduced. Will automation of some or all functions make the system 
more user friendly and easier to master? 


Is a significant level of improvement in the accuracy of the financial 
records attainable? Will the automation of some or all of the system 
increased reliability in the financial statements while providing an audit 
trail for error detection/correction? 


What are the automation boundaries in a proposed system? What 
functions should be automated and which should remain manual? 


Is management information provided in a more timely manner? Is the 
Mess Treasurer able to produce financial reports faster as well as 
produce information useful in decision making while it is still current? 


Will the proposed system provide support to menu planning? Will 
system output provide financial information useful to the mess caterer 
for planning purposes? 


Test the following null hypotheses to determine possible impact of the 
proposed system on the Mess Treasurer function: 


H1: Understanding of the current private mess records keeping 
system by the Mess Treasurer's is generally limited. 


H2: Performance of the Mess Treasurer task significantly impacts 
the Treasurer's primary duty. 


H3: Mess records turned over during the relieving process are not 
generally complete and inspection ready. 


H4: Mess Treasurers believe there are significant gains to be realized 
from automating the records keeping process. 


H5: Automating the records keeping process improve the Mess 
Treasurer disposition toward the required tasks. 


H6: The automated system will produce significant savings of time for 
the Mess Treasurer. 


H7: Use of the automated system will improve the accuracy and 
timeliness of report submission in the opinion of the treasurer. 


H8: The automated system is easy to understand and not complicated 
to operate. 


H9: PMAs will be of significant use to a Mess Treasurer. 


E. SCOPE 

This thesis is concerned with the development of an automated man- 
agement information system for the financial reporting and record keeping 
functions required by private messes afloat. Within these boundaries a two 
phased approach was taken starting with system development and then 
moving into test and evaluation. In the development phase emphasis was 
placed on a three step approach starting with an analysis of the 
requirements as established by regulation then developing a design of the 
logical system without regard to possible methods of implementation and 
finally implementing the system in preparation for test and evaluation. This 
implementation was constrained by a development language requirement 
established by the thesis sponsor. The implementation must be accomplished 
through the use of FOXBASE data base development language. The second 
phase will be devoted to the system evaluation focusing on three primary 
areas of interest: 

- Timeliness of information in support of management decision making. 


- Level of technical expertise required to master the new system. 


- Accuracy of records and reports as compared to the manual system. 


F. RESEARCH METHODOLOGY 

Within the development phase of the project a structured systems 
analysis and design methodology was utilized as the development model. To 
assist in developing system requirements interviews with appropriate 
personnel within the Navy Food Service Systems office and a review of 
applicable publications were performed. The use of questionnaires and 
interviews with afloat supply officers assisted in establishing a baseline 
against which the performance of the newly developed systems was mea- 
sured. The second phase of the project was conducted as an iterative process 
to test, demonstrate, and HreDPBerate recommended changes. Upon 
completion of this prototyping process, testing of the automated system 
against the old system was conducted to develop the statistics necessary to 


address the research questions. 


G SUMMARY OF FINDINGS 
Upon completion of the development and evaluation phases the results 
were compared against the original questions to draw conclusions and make 


recommendations. 


- Concerning additional financial information, the automated system 
generates a transaction listing to provide an audit trail and assist in 
error detection, a recommended mess bill and a meal price list for the 
next month. Additionally, the system produces a complete trial balance 
to assist in financial statement preparation. 


- Data collected indicates that a significant amount of time will be saved 
using the automated system as compared to the manual system. 


- To provide more conclusive evidence that improvements in accuracy 
result from implementing this system, more time than is available 
would be required. However, some conclusions can be drawn to support 
improved accuracy from the tests conducted. 


- Asa preliminary evaluation the prototype system was tested among 25 
individuals. The findings discussed in Chapter 4 indicate both a 
favorable and statistically significant result. 


- In all situations the improvements in timeliness and accuracy of report 
submission were anticipated to be significant. 
H. ORGANIZATION OF STUDY 
The main body of the thesis is divided into five chapters with the next 
three addressing the issues described above and ending with a fifth chapter 
for conclusions and recommendations. A brief description of these chapters 
is as follows: Chapter [J—an in-depth description of the system as it exists in 
it's logical form; Chapter III—the logical design of the proposed system to 
include the dataflow diagrams and module specifications for source code 
development; Chapter IV—a performance evaluation of the automated 
system as opposed to the manual system currently in use; and Chapter V—a 


discussion of findings and recommendations. 


IT. ANALYSIS 


A. INTRODUCTION 

The introductory chapter described, in general terms, the framework of 
the private mess information system project, establishing boundaries and 
defining system objectives. In this chapter, a more in-depth analysis of the 
system is conducted to develop a logical model of what the system 
accomplishes given the system inputs and outputs. This analysis focuses on 
what the system is to accomplish and not on the specifics of how it is to be 
accomplished. The system will be described in terms of data flow diagrams 
using a functional approach for the high level views and turning to a data 
driven approach for the analytical discussions at the data element level. This 
approach is based on structured analysis and design techniques and will take 
the data elements found in the system output and trace them back through 
the system to determine their origin. Along the way these data elements are 
examined to identify data stores, algorithms and input requirements. Upon 
completion of this phase of the system development, certain exit criteria 
were required to be met. These criteria consist of a graphical representation 
of the system presented in the form of data flow diagrams, a data dictionary 
identifying the data elements that occur in the system and a list of the 


algorithms used to generate the system output. 


B. DATA FLOW DIAGRAM LEVELING 

An examination of the system on a broad scope reveals two major 
functional areas. The first area to be considered was the recording of the 
daily transactions into the system. The mess treasurer is daily faced with a 
variety of transactions dealing with funds collection, funds disbursements, 
establishment of accounts receivables or payables, and changes in the mess 
membership. All the daily transactions must be properly recorded and 
posted to the appropriated accounts. These transactions represent the inputs 
to the system. The second major functional area is that of generating 
monthly operating statements. The mess is required by regulation to provide 
a monthly financial operating statement along with a variety of supporting 
documentation in the form of summary ledgers. These ledgers are prepared 
for the following accounts: (1) accounts receivable; (2) accounts payable; 
(3) record of expenditures; (4) record of collections; (5) a listing of current 
mess members; (6) mess bills owed by the members, etc. These reports 
generated by the financial system represent the outputs. The data flow 
diagram in Figure 1, illustrates the process of transactions entering the 
system and being assigned to data stores and then at the end of the month the 
financial reports are processed and distributed to the membership of the 
mess. Each of the major functional areas will be decomposed into its 
component parts in an effort tc identify the processes necessary to 


accomplish the major functional objectives. 
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Figure 1. Level 1 DFD 


C. FUNCTIONAL DECOMPISITION 

At this point it is still not clear as to exactly what the system is doing. To 
get a better feel for the system requirements it is necessary to break down the 
major function areas into more easily understood functions. The first major 
area of transaction processing actually represents several smaller functions 


as described below: 


- Accounts receivable: the system must be able to account for amounts 
due from its members as well as any outside agencies. 


- Accounts payable: the system must also track amounts owed by the 
mess for items such as provisions and supplies to support the mess 
operations. 


- Cash collections: cash collected by the mess treasurer must be properly 
entered into the accounting system. 


- Cash disbursements: cash disbursements made by the mess treasurer 
against mess obligations must also be posted into the system. 


- Changes in membership: both additions and deletions from the 
membership rolls must be recorded accurately to ensure proper billing 
and/or refund. 


- Handling non-members: from time to time non-members such as 
technical representatives will eat in the mess. The billing of these people 
must be addressed. 


Figure 2 represents the decomposition of the transaction function. 
The second major area for decomposition is the report generation 
function. This function can be broken down into six different sub-functions 


as described below. 


- Financial Statement: The Navy Food Service Systems Manual requires 
that a NAVSUP Form 1368 be prepared monthly for all afloat private 
messes. This statement contains information on the cash accounts, 
balance sheet accounts, mess share value, provisions consumed, and 
cost per man calculation. 
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Figure 2. Decomposition of Transaction Functions 
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- Statement of Accounts Receivable: In support of the financial statement 
a listing of all outstanding accounts receivable is to be prepared and 
attached. 


- Statement of Accounts Payable: A list of all current accounts payable 
will also be attached to the financial statements. 


- Record of Collections: A record of all cash collections made by the mess 
for the current month will be attached to the monthly financial 
statement. 


- Records of Expenditures: Additionally a record of all disbursements 
made in the name of the mess for the current month will be attached to 
the financial statement. 


- Monthly Mess Bills: At the end of every month the system must pro- 
duce a mess bill for all members of the mess as well as any non- 
members subsisting out of the private mess. 


- Record of Mess Members: Attached to the financial report package is to 
be a listing of all current mess members containing information as 
described below. 


Figure 3 illustrates the decomposition of the report generation process. 


D. DATA DRIVEN ANALYSIS 

Now that the functions to be performed by the system have been iden- 
tified and discussed, the emphasis is directed to analyzing the flow of data 
through the system from the point of system output back to the point of 
system input. This analysis is performed using a data driven approach. In 
this approach the output of the system is examined and the data elements 
are traced back to determine their origin and make up. Appendix B contains 
the results of this analysis. During this process the algorithms used to 
manipulate the data are identified, described, and recorded. All system 


output such as the financial statements and the monthly reports were 
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Figure 3. Decomposition of Report Generation Function 
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examined to identify all data elements and their source. This analysis 


represents all the data elements necessary for the system to function. 


E. ALGORITHMS 

In the case of many of the data elements identified above, the source is 
not necessarily a data store but rather is the result of a data manipulation 
process. To have a proper understanding of the system these algorithms 
must be identified. Appendix C contains the results of this process. This 
represents the first effort at identifying the systems algorithms. As the 
development process continues, other algorithms will be uncovered and 


incorporated into the development program. 


F. CONCLUSION 

Now that the system has been analyzed to determine the logical com- 
ponents and functions, certain generalizations about the system can be 
made. On a high level the input-process-output functions are represented by 
the transactions, report generation, and report distribution processes 
respectively. A decomposition of the transaction process shows the input to 
the system can come from many different sources such as bills for provisions 
bought both from the supply officer and outside vendors, bills for supplies 
such as plaques and pins, credit memo's from suppliers, collection of 
receivables for both mess bills and other receipts, expenditures by the mess to 
pay its bills and finally changes in the mess membership over the course of 
time. The report generation process can be decomposed into seven different 
sub-functions to include the financial operating statement, record of 


collections, record of expenditures, accounts receivable, accounts payable, 


14 


record of mess members, and finally the monthly mess bills. Decomposing 
the major functional areas into sub-functions allows for a more detailed view 
of what processes are required to accomplish the system objectives. 
Additionally the individual data elements have been identified along with 
their source. By considering what data is required at the output point of the 
system and tracing each element back to its origin data stores and required 
algorithms are identified. By the application of the above technique in an 
iterative manner the vast majority of necessary data is believed to have been 
identified. At this point, the development effort can proceed to the design 
phase for the development, coding, and testing of the proposed system. 
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Til. DESIGN 


A. INTRODUCTION 

Moving from the analysis phase into the design phase is one of moving 
from discussing what is to be done to a discussion of how to implement the 
proposed system. Chapter II provided a view of the logical system for private 
messes afloat. This chapter will be concerned with the developing of the 
physical design of the proposed system and the designing of an evaluation 
mechanism to address the thesis hypotheses stated in Chapter I. The system 
design situation is one of applying the information gathered in the analysis 
phase to a physical design within the constraints established by the thesis 
sponsor. This transition will involve developing physical data flow diagrams 
to represent the data flow in the proposed system, module 
boundaries/specification, structure charts, and file structures. These tools 
help illustrate the manner in which the system was implemented. The 
system design phase also addresses issues of human interference and 
ergonomic principles as discussed below. In designing the evaluation 
mechanism the decision was made to administer a questionnaire to as many 
mess treasurers as possible. The design of the questionnaire was concerned 
with measuring the Mess Treasurer's opinion of the environment and of the 


proposed system. 
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B. DESIGN APPROACH 

The development of this system was based on the adoption of certain 
design philosophies leading to the implementation of a system providing the 
maximum amount of training in the input environment that requires 
selection of alternatives as opposed to direct input of commands and data. 
Although this limits the flexibility of the system, it was a conscious decision 
based on the low level of experience and short duration of the assignment to 
the position of mess treasure. By allowing the system to perform all 
calculations and a large amount of data input the opportunity for error or 
improper data entry is reduced to a minimum. All requests for data made by 
the system are accompanied by an opportunity for error correction in the 
form of screen verification. A major design goal was to develop a system that 
would allow an individual with a minimum understanding of the private 
mess accounting system and micro computers to successfully operate the 
system and generate the required reports. This reduction in required 
technical expertise should improve the overall quality of the financial 
records. Another design consideration was to allow for error correction 
when generating the end of the month reports. This is to be accomplished 
through a trial balance system that allows as many opportunities as 
necessary to generate accurate end of the month reports. The possibility of 
paper reduction was also a consideration in the design of the system. The 
mess treasurer will no longer maintain manual ledgers and records 
necessary to the generation of the required reports. This information will be 


system generated when it is required. 


ay 


C. SYSTEM DESIGN 

The design of the system was constrained by several restrictions 
imposed by the sponsor. The system must be developed using FOXBASE+ 
database development language to interface with other food service system 
programs and the system must operate in the MS-DOS environment to be 
compatible with the equipment provided to the Mess Treasurers. With these 
constraints in mind the basic structure of the system was developed breaking 
down the major functions into the three broad areas of utilities transactions 


and report generation. Figure 4 represents this first level structure. 


PM 
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INTRO UTIL TRANT TRIAL 


PASSWORD UTILITY TRANSACT EOM 
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Figure 4. First Level Structure 
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D. UTILITIES 
The utilities modules are not identified in the analysis phase since they 
represent functions not specifically provided for in the manual system. 
These are functions that now need to be addressed. 
i oft oP 
Private messes operate in several different manners. Some subsist 
from general mess while others prorate costs equally over the membership. 
Additionally, there are several types of messes afloat such as wardroom, 
CPO, Commanding Officer, and others. To allow the system to be generic, 
and at the same time permit customization to each situation, these several 
other parameters must be captured. The SETUP module accomplishes 
these tasks. 
2. JUMP 
When a private mess attempts to convert from a manual system to 
this automated system a vehicle must be provided to facilitate the transfer to 
the new system. The current operating statistics such as accounts 
receivable/payable, the current membership roster, and others must be 
properly installed to ensure a smooth transition. The JUMP series of pro- 
grams guides the user through all the necessary steps. 
3. NEWPASS 
The move to an automated system raises issues concerning 
security of the financial information. This system is equipped with password 
protection to reduce the risk of unauthorized access to the records. With this 


scheme comes a requirement to be able to change the password 
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at regular intervals to further reduce these risks. The NEWPASS module 
uses an algorithm to scramble the new password and store it in a data file. 
4. RECOVERY 
The possibility always exists that a power outage or other system 
failure could occur. The RECOVERY module is designed to deal with these 
contingencies and provide a means to reconstruct the system as it was at the 
beginning of the current session. The archives disk is accessed and all 
database structures and records are rebuilt. 
5. PRI-FILE 
At different times throughout the month questions will arise as to 
whether a given transaction has been entered. The PRT-FILE module 
prints out the current contents of the transaction file and members file for 
diagnostic purposes. Figure 5 shows the structure of the utilities functions 
within the system design. 


Kk. TRANSACTIONS 

A major design consideration in the transaction area was to combine all 
transactions into one file and use type codes to identify which transactions 
are accounts receivable, which are collections, and so on. This improved 
performance and greatly simplified the transaction processing functions. 
Data elements used as record identifiers are entered into the transaction 
base only one time to ensure data integrity. As with the utilities functions the 


transactions functions are divided into several subfunctional areas. 
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Figure 5. Utility Functions Structure 


1. TRANSREC 
Accounts receivable are recorded into the transactions file and 
identified as a type 'AR’ for future processing. This module automatically 
inputs many of the data elements automatically. 
2. TRANPAY 
Accounts payable are recorded into the transaction file as type AP 
for future processing. This module also inputs the purpose of the transaction 
for the user to insure the input is correct. 
3. TRAN L 
Recording collections in the system requires a matching receiv- 
able. The type code is verified then the purpose codes are matched, and 
finally the receivable entry in the transaction file is converted into a collec- 


tion by changing the type to ‘CL’ and adding a date paid. 
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4. TRANEXP 
Expenditures are handled in the same fashion as collections. A 
matching account payable must be in the file prior to making an expendi- 
ture. the expenditure module asks the user for data to match against a 
specific payable and then the conversion is made. 
5. TRANSMBR 
Through the life of the mess, members will join and depart on a 
regular basis. Upon joining the mess the member may be assessed a partial 
mess bill and/or a mess share. This module considers the type of private mess 
by examining the setup information and creates the appropriate 
transactions. Likewise when a member departs certain charges and/or 
refunds may be required. These transactions are created through an 
interactive dialog with the user. The member is not removed from the file 
until all debts have been settled. 
6. SRIDER 
It is a common occurrence on all ships for non-members to eat 
occasional meals in the private mess for which they must pay. Technical 
representatives are a good example of this situation. The system provides 
this module to handle this situation and ensure bills are prepared and 
collections recorded. An interactive dialog assists the treasurer through the 
required transactions. Figure 6 shows the relationship of all the transaction 


modules and submodules. 
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Figure 6. Transaction Functions Structure 


F. REPORT GENERATION 

This major functional area transitions from the menu-driven format to 
a query based format. As the reports are being generated information will be 
requested from the Treasurer. As with the menu approach, all entries have 
input verification/correction capabilities on the screen. A major design 
consideration was to allow the Treasurer to produce a trial set of reports to 
verify for accuracy. Correcting entries may then be made and another trial 
performed. This process continues until the correct reports are produced 
and then the smooth final reports are generated. The two major processes in 


this functional area are the TRIAL module and the EOM module. 
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1. Zea 





The system examines the transaction file and segregates all the 
transactions into their appropriate financial statement headings. No 
alternations are made to the source entries rather temporary files are 
established pending the final smooth reports. Sub-functions include gen- 
eration of mess bills, accounting for members on leave, and determining any 
special assessments to be charged. 

2, HOM 

Once the treasurer is satisfied with the financial reports the system 
generates smooth reports with the appropriate headings and dates. This 
module is additionally responsible for resetting all the database files to start 
the new month. All collection and expenditure transactions are dropped and 
the accounts receivables and ee are coded as prior month transactions. 
Members who have detached the mess are deleted and all temporary 
holding files are set to null positions. Figure 7 shows the major process in the 
report generation area. The primary design goals were to provide a user 
friendly system to the Mess Treasurer that required a minimum amount of 
input and a minimum amount of technical expertise. To this end an 
ergonomics study was conducted on the system to evaluate this criteria. 
Appendix D is a copy of the study. The conclusions of the report suggest that 
while user friendliness was achieved, improvements in the area of help 
screens and error correction would enhance the usability of the program for 


novice users. 
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G EVALUATION DESIGN 


The design of the questionnaire involved developing questions that 


would provide data to examine and evaluate the original thesis hypotheses. 


Each was considered and a corresponding null hypothesis was developed. 


The set of null hypotheses are as follows: 


File 


ra. 


to: 


H4: 


Understanding of the private mess records-keeping system by a 
Mess Treasurer 1s comprehensive. 


Performance of the Mess Treasurer's duties does not impact the 
treasurer's primary duties. 


Mess records turned over during the relieving process are complete 
and inspection-ready. . 


The Mess Treasurer believes there is nothing to be gained from 
automating the records-keeping process. 
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H5: Automating the records-keeping process will not increase the Mess 
Treasurer's job satisfaction. 


H6: The automated system produces no significant savings of time for 
the Mess Treasurer. 


H7: Use of the automated system will not improve the accuracy and 
timeliness of submission of mess records in the opinion of the Mess 
Treasurer. 


H8: The automated system is difficult to understand and complicated to 
use. 


H9: PMAS will be of no use to the Mess Treasurer. 
From these nine null hypotheses the questionnaire in Appendix E was 


developed. 


H. CONCLUSION 

The implementation of this automated system within the design criteria 
described above when accomplished, provided a functioning system capable 
of addressing all operational requirements. In addition to performing these 
requirements, the system provides features not available in the manual 
system. The Mess Treasurer is not responsible for any calculations and 
must input only the minimum amount of data. All reports are generated 
automatically, reducing the risk of transposition type errors. Improvements 
in security are provided in the form of password protection, and all data is 
archived at the close of each session. Appendix E is a listing of the source 
code for this system and Appendix F is the user's manual that supports the 
system. 
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IV. EVALUATION 


A. INTRODUCTION 

The system design discussed in Chapter III was used to develop a 
functional system that models the Private Mess Accounting System for 
afloat units. With the completion of this phase, attention was turned to eval- 
uating the usefulness of the system in a shipboard environment. To accom- 
plish this, a target group of individuals was identified to participate in the 
evaluation and provide feedback data for system improvements. This data 
was used to evaluate the null hypotheses and draw conclusions and make 
recommendations about the system. A random sample of 25 individuals 
working in the Private Mess Accounting System participated in the 
evaluation and the responses were statistically analyzed using the statistical 


analysis program. Table 1 provides a summary of the results. 


B. HYPOTHESIS TESTING 

Prior to the actual shipboard testing, it appeared that the proposed 
system would, in fact, be of significant value to the afloat Mess Treasurer. As 
can be seen in the design of the original hypotheses, this was a presumption 
from the beginning. 

1. Research Setting 

It was considered essential that all testing be performed in the 

environment in which it must function if adopted for general use. With the 
assistance of Commander Surface Forces Pacific Fleet, a number of ships 


inthe Northern California area were made available for testing of the 
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TABLE 1. SUMMARY OF RESULTS 





H1: Each Mess Treasurer has a comprehensive REJECTED 
understanding of the current private mess 
accounting system. 


H2: Performing the Mess Treasurer's functions REJECTED 
does not impact on the Treasurer's primary 
duty. 


H3: Mess records turned over during the reliev- REJECTED 
ing process are complete and inspection ready. 


H4: Mess Treasurers are indifferent as to auto- REJECTED 
mating the current manual accounting 
system. 


H5: Automating the records-keeping process REJECTED 
will not increase the Mess Treasurers job 
satisfaction. 


H6: The automated system produces no signifi- REJECTED 
cant savings of time for the Mess Treasurer. 


H7: Use of the automated system will notimprove REJECTED 
the accuracy and timeliness of report 
submission. 


H8: The automation system is difficult to under- REJECTED 
stand and complicated to operate. 


H9: The automated system will be of no use to REJECIED 
the Mess Treasurer. 





proposed system and data gathering. All tests were performed under typical 
shipboard conditions. The environmental factors such as excessive noise, 
repeated interruptions, and competing priorities for the Mess Treasurer's 
time were all experienced and therefore played a part in the evaluation. The 


questionnaire used in the evaluation phase consisted of 16 questions related 
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to the data gathering. A five point Likert Scale ranging from zero to four 
was used to quantify the participants responses in evaluating the null 
hypotheses. 
2. Subjects 
The subjects selected to participate in running the demonstration 
program and completing the questionnaire were individuals currently 
serving as a Mess Treasurer or had served in that position earlier in their 
career. This experience and familiarity with the domain was considered 
essential for evaluating the automated system in a thorough manner. 
3. Statistical Testing 
The statistical analysis was conducted after making certain 
assumptions. For instance the hypothesis testing was done using a one-tailed 
test. Thatis, it was presumed that the automated system would only serve to 
improve and not impair the mess treasure function. A two-tailed test would 
be concerned with both improvement and impairment. The null hypotheses 
were assigned the extreme value of possible responses that would best 
represent that view. All tests were conducted using a 90% confidence 
interval and an alpha value of .01. Since the sample size was less than 30 the 
T-statistic was used to accept or reject the null hypothesis. 
4, Tasks 
The test subjects were requested to complete the first part of the 
questionnaire followed by the running of a sample demonstration of the 
proposed automated system using a simulated database of mess members. 
During the testing the subjects were directed to perform utility functions to 


tailor the system to their particular ship. After completion of this, a series of 
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normal transactions were performed in the areas of accounts receivable, 
accounts payable, collections, and expenditures. Additionally, several new 
members were added to the database and several others were deleted. All 
transactions followed the script provided in Appendix G. When all the 
transactions were finished a complete set of financial returns were 
generated by the test subject using the automated system. 
by: sults and Conclusion 

The results of the hypothesis testing summarized in Table 1 
overwhelmingly suggest that the proposed system is viewed by the test 
subjects in a very positive manner. All nine of the null hypotheses are 
rejected and in most cases by a significant amount. Using the survey 
questionnaire in Appendix F as a reference, the following conclusions can be 


made about the original hypotheses: 


Hi: The sample data indicates that the understanding level of a Mess 
Treasurer ranged from limited (1 on the Likert Scale) to basic (2 on 
the scale). The average level was 2.6 on the scale. The 95% confi- 
dence interval was between 2.08 and 3.12 and the T-statistic was 
-5.56, leading to a rejection of the null hypothesis. Figure 8 contains 
all pertinent data. Thus it is apparent that a system requiring less 
technical understanding of the system would be of benefit. 


H2: The sample data show that the impact of the Mess Treasurer's tasks 
ranged from some impact (2 on the scale) to noticeable impact (3 on 
the scale). The average response was 2.6 on the scale and the 95% 
confidence interval was from 2.31 to 2.73 with a T-statistic of 24.7, 
leading to a rejection of the null hypothesis. Thus the Mess 
Treasurer function has an impact on the Treasurers primary duty 
and thereby reducing their overall productivity. Figure 9 provides 
the statistical data. 
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Sample Statistics: Number of Obs 
Average 
Variance 
Std. Deviation 
Median 


Confidence Interval for Mean: 
Sample 1 


Confidence Interval for Variance: 
Hypothesis Test for HO: Mean = 4 


vs Alt: LT 
at Alpha = 0.01 


25 

2.6 
1.58333 
1.25831 
3 


95 percent 
2.08047 3.11953 24D.F. 


0 percent 
Computed T-statistic = -5.56304 


Sig. Level = 5.03442E-6 
so reject HO. 


Figure 8. Statistics for Null H1 


Sample Statistics: Number of Obs 
Average 
Variance 
Std. Deviation 
Median 


Confidence Interval for Mean: 
Sample 1 


Confidence Interval for Variance: 
Hypothesis Test for HO: Mean =0 


vs Alt: GT 
at Alpha = 0.01 


25 

2.52 

0.26 
0.509902 
3 


95 percent 
2.30947 2.73053 24D.F. 


0 percent 
Computed T-statistic = 24.7106 


Sig. Level = 0 
so reject HO. 





Figure 9. Statistics for Null H2 


H3: The responses to this question suggest that some attempt at proper 
records-keeping was made but not all requirements were met. The 
average response was 1.6 on the scale. The 95% confidence interval 
was 1.2 and 1.99 with a T-statistic of -12.53, leading to a rejection of 


the null hypothesis. Figure 10 provides the statistical data. 
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Number of Obs 
Average 
Variance 

Std. Deviation 
Median 


Sample Statistics: 


Confidence Interval for Mean: 
Sample 1 


Confidence Interval for Variance: 
Hypothesis Test for HO: Mean = 4 


vs Ak: LT 
at Alpha = 0.01 


S, 


6 
.916667 
957427 


mMOoOOeO"M 


95 percent 
1.2047 1.9953 24D-.F. 


0 percent 
Computed T-statistic = -12.5336 


Sig. Level = 2.52587E-12 
so reject HO. 


Figure 10. Statistics for Null H3 


H4: The summary of responses clearly indicate it was believed that a 
noticeable improvement by automating the financial system can be 
realized. The average score of 3.16 on the scale supports this view. 
The 95% confidence interval was between 2.85 and 3.47 on the scale 
with a T-statistic of 21.18, leading to a rejection of the null 
hypothesis. Figure 11 provides supporting statistical data. 


Number of Obs 
Average 
Variance 

Std. Deviation 
Median 


Sample Statistics: 


Confidence Interval for Mean: 
Sample 1 


Confidence Interval for Variance: 
Hypothesis Test for HO: Mean =0 


vs Alt: GT 
at Alpha = 0.01 


25 

3.16 
0.556667 
0.746101 
3 


95 percent 
2.85195 3.46805 24D-F. 


0 percent 
Computed T-statistic = 21.1768 


Sig. Level = 0 
so reject HO. 





Figure 11. Statistics for Null H4 


laley 


The view of the Mess Treasurers toward the automated system was 
that it would in fact make a bothersome collateral duty more 
bearable. This is supported by an average response of 3.12 on the 
scale. The 95% confidence interval was 2.82 to 3.42 with a T-statistic 
of 21.5, leading to a rejection of the null hypothesis. Figure 12 
provides supporting data. 





Sample Statistics: Number of Obs 25 


Average SU 
Variance 0.526667 
Std. Deviation 0.725718 
Median 3 


Confidence Interval for Mean: 95 percent 


Sample 1 2.82037 3.41963 24D.F. 


Confidence Interval for Variance: 0 percent 


Hypothesis Test for HO: Mean = 0 Computed T-statistic = 21.496 


He: 


Js le 


vs Alt: GT Sig. Level = 0 
at Alpha = 0.01 so reject HO. 


Figure 12. Statistics for Null H5 


An examination of the results indicates that the respondents felt that 
the adoption of an automated system would result in a considerable 
savings in time. The average response of 3.48 on the scale supports 
this position. The 95% confidence interval was 3.19 to 3.77 witha 
T-statistic of 24.36, leading to a rejection of the null hypothesis. 
Figure 13 provides supporting data. 


The results of the survey indicate that the Mess Treasurers felt that 
anywhere from significant to major improvements will occur in 
with the timeliness an accuracy of report submission by converting 
to an automated system. The average response of 3.6 on the scale 
supports this conclusion. The 95% confidence interval was 3.36 to 
3.84 with a T-statistic of 31.18, suggesting a rejection of the null 
hypothesis. Figure 14 provides the supporting data. 
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Sample Statistics: Number of Obs 25 


Average 3.48 

Variance 0.51 

Std. Deviation 0.714143 

Median 4 
Confidence Interval for Mean: 95 percent 

Sample 1 3.18515 3.77485 24D.F. 
Confidence Interval for Variance: 0 percent 
Hypothesis Test for HO: Mean = 0 Computed T-statistic = 24.3649 

vs Alt: GT Sig. Level = 0 
at Alpha = 0.01 so reject HO. 


Figure 13. Statistics for Null H6 


Sample Statistics: | Number of Obs 25 
Average 3.6 
Variance 0.333333 
Std. Deviation 0157755 
Median 4 
Confidence Interval for Mean: 95 percent 
Sample 1 3.36162 3.83838 24D.F. 
Confidence Interval for Variance: 0 percent 
Hypothesis Test for HO: Mean =0 Computed T-statistic = 31.1769 
vs Alt: GT Sig. Level = 0 
at Alpha = 0.01 so reject HO. 





Figure 14. Statistics for Null H7 


H8: This hypothesis was concerned with user friendliness. The survey 
indicated that the system was viewed as both understandable and 
easy to operate. The average response was 3.4 on the scale 
indicating a high degree of user friendliness. The 95% confidence 
interval was 3.13 and 3.67 with a T-statistic of 26.34, suggesting re- 
jection of the null hypothesis. Figure 15 provides the supporting 
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Number of Obs 
Average 
Variance 

Std. Deviation 
Median 


Sample Statistics: 


Confidence Interval for Mean: 
Sample 1 


Confidence Interval for Variance: 
Hypothesis Test for HO: Mean = 0 


vs Alt: GT 
at Alpha = 0.01 


eae. 

3.4 
0.416667 
0.645497 
3 


95 percent 
3.13349 3.66651 24D-F. 


O percent 
Computed T-statistic = 26.3363 


Sig. Level = 0 
so reject HO. 





Figure 15. Statistics for Null H8 


H9: The automated system was viewed as having great potential and 
was perceived as being very useful in the financial management of a 
private mess. The position was supported by an average response of 
3.48 on the scale. The 95% confidence interval was 3.24 with a 
T-statistic of 29.70, resulting in the rejection of the null hypothesis. 
Figure 16 provides the supporting data. 


Number of Obs 
Average 
Variance 

Std. Deviation 
Median 


sample Statistics: 


Confidence Interval for Mean: 
Sample 1 


Confidence Interval for Variance: 
Hypothesis Test for HO: Mean = 0 


vs Alt: GT 
at Alpha = 0.01 





25 

3.48 
0.343333 
0.585947 
4 


95 percent 
3.23808 3.72192 24D.F. 


0 percent 
Computed T-statistic = 29.6955 


Sig. Level = 0 
so reject HO. 





Figure 16. Statistics for Null H9 


C. CORRELATION TESTING 

In addition to hypothesis testing, correlations were performed on all the 
variables to look for any significant interrelationships. The eight variables 
used were understanding (of the system), waste (of Treasurers time), impact 
(on Treasurer's primary duties), condition (of the records), acceptability (of 
the new system), bearable (job satisfaction), savings (in time and effort), 
timeliness and accuracy (of report submission), ease (of running the new 
system), and usefulness (of the new ee No strong correlations 
appeared between any of the variables. This would indicate that no questions 
overlapped and no significant relationships exist among them. It appears all 
the subjects felt the automated system would be a better method for financial 
records-keeping. The perceived savings in time and effort was not tied to 
prior computer experience, suggesting that computers are generally viewed 


as providing a positive impact on most manually operated systems. 


D. CONCLUSIONS 

The evaluation of the proposed system conducted in the normal oper- 
ating environment by those most familiar with the system suggests its 
potential. Not only the responses to the questionnaire, but the attitude and 
comments of the participants indicated a strong desire to have this system 
available to assist in maintaining the private mess financial records. In all 
areas of interest the statistical testing process indicates the system is seen as 
helpful to the Treasurer to better utilize his time. The responses also suggest 
that reports could be both more timely in submission and accurate in content 


with the use of this system. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

With the completion of the statistical analysis it is time to direct 
attention to the conclusions that can be drawn from this project. The focus is 
now directed back to the original thesis questions to make appropriate 
comments concerning the impact made by the proposed system. The first 
question was concerned with what information can be provided to support 
improved financial management. The system will provide transactions 
listings at any time and a complete financial picture can also be generated at 
any time by performing a trial balance. The next issue involved reducing the 
level of expertise required to operate the system. The statistical analysis 
indicates that the level can in fact be reduced by the implementation of the 
automated system. The third thesis question addressed the possibility of a 
significant level of improvement in the accuracy of the financial records. 
The Mess Treasurers involved in the testing expressed an opinion that not 
only would improvements be realized but they would also be quite significant. 
The next area to be addressed is one of defining the automation boundaries. 
The system was designed such that the boundaries start at the transaction 
input process and continue through to the report generation process. The 
fifth thesis question was aimed at providing management information in a 
more timely manner. This would appear to be influenced both by the system 
and the time frame in which the Mess Treasurer utilizes the system. Given 


the same starting time, the automated system is significantly faster in 


Oo” 


transaction processing and report generation. An area of interest was the 
possibility of the system providing support to menu planning. This support 
occurs only to the extent that the mess’ financial position can be determined 
at any time. This information could be used to determine whether a cut back 
in meal costs or increase is necessary to maintain the desired financial 
position. Some additional conclusions concerning the project are also 
presented for consideration. It was interesting to note that to be a user of the 
system did not imply an understanding of how the system performed the 
required tasks. It was common to find Mess Treasurers who haa a very 
limited understanding of the basic assumptions behind the manual system, 
however managed to maintain a set of financial records. In the area of 
project management, estimating the project size was a more difficult task 
than originally expected. All phases of the project took much longer than 
originally anticipated. The design and development phase was originally 
expected to last approximately six weeks. This phase, however, in fact took 
80% longer, lasting almost ten weeks. Also, developing a test plan revealed 
the difficulty in providing a complete system test. This phase also expanded 
in time by 50% and was reduced in scope as it became evident that a 
comprehensive test plan to test every system function for proper execution 
could take many months. Finally, it was noted that a significant saving in 
manpower can be realized with the implementation of this system. The 
questionnaire indicated that an average of 8.1 hours per month were 
expended in the maintenance of the financial records. Although military 


personnel are not paid on an hourly basis, a monetary value can be attached 
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to this savings in time. When this is calculated across the total number of 


private messes the savings would be significant. 


B. RECOMMENDATIONS 

Based on the responses provided by the questionnaire and the statistical 
evaluation of those responses it appears that the proposed system should be 
pursued for shipboard use. A second recommendation is to consider 
developing a system to assist the Mess Caterer and interface with PMAS. 
This would automate the entire private mess system and interface with the 
itomated food service system. It is also recommended that the automated 
system be implemented on a test group of ships to provide the necessary 
testing prior to full distribution. Along with this, provide future enhance- 
ments such as help screens and improved error correction capabilities. 
Finally, this system should be certified for shipboard use as soon as 
practicable. 

The Automated Private Mess Accounting System, when implemented, 
will provide significant improvements to the current manual system of 


records-keeping. 
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APPENDIX B 


The Data Destination: The Mess Members 


FORM OF OUTPUT: FINANCIAL STATEMENT 


DATA ELEMENT SOURCE 
Cash Brought Forward Previous Months Statement 
Mess Bills Previous Months Record of Collections 
Mess Bills Current Month Record of Collections 
Mess Bills Next Month Record of Collections 
Mess Shares Sold Record of Collections 
Commuted Rations Collected Record of Collections 
Mess Bills Refunded Record of Expenditures 
Mess Shares Refunded Record of Expenditures 
Provisions from FSO Record of Expenditures 
Provisions from Vendors Record of Expenditures 
Meals Purchased from FSO Record of Expenditures 
Commuted Rations Rebated Record of Expenditures 
Other Receipts Record of Collections 
Total Receipts Column Total 
Total Expenditures Column Total 
Cash on Hand End of Month Mess Treasurer 
Mess Bills Uncollected Accounts Receivable Report 
Mess Shares Uncollected Accounts Receivable Report 
Commuted Rations Uncollected Accounts Receivable Report 
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DATA ELEMENT 
Inventory Provisions 
Inventory Non-Provisions 
Other Assets Accounts 
Mess Bill Refunds Owed 
Mess Share Refunds Owed 
Provisions from FSO Owed 
Provisions from Vendors Owed 
Meals Purchased from FSO Owed 
Other Liabilities 
Net Worth 
Total Liabilities 
Total Assets 
Total Liabilities and New Worth 
Number of Members 


Current Value of Mess Share 


Previous Month Mess Share 


Changes in Mess Share Value 


Previous Months Provisions Inventory 
Provisions Received 


Provisions Consumed 


Average Number of Officers Subsisted 
Average Number of Enlisted Subsisted 
Total Subsisted from the Mess 
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SOURCE 
Physical Inventory Document 
Physical Inventory Document 
Receivable Report 
Accounts Payable Report 
Accounts Payable Report 
Accounts Payable Report 
Accounts Payable Report 
Accounts Payable Report 
Accounts Payable Report 
Total Liability - Total Assets 
Column Total 
Column Total 
Column Total 
Record of Mess Members 


Number of Members Divided 
by Net Worth 


Previous Month Statement 


Difference Between Past and 
Current Values 


Previous Month Statement 
Receipt Documents 


Beginning Inventory + 
Receipts - Ending Inventory 


Meals Served Record -1046 
Meals Served Record -1046 
Total 


DATA ELEMENT SOURCE 


Cost Per Man Provisions Consumed/ 
Total Subsist 


FORM OF OUTPUT: ACCOUNTS RECEIVABLE REPORT 


DATA ELEMENT SOURCE 
Date Date of Transaction 
Name Input Document 
Purpose Input Document 
Amount Input Document 


FORM OF OUTPUT: ACCOUNTS PAYABLE REPORT 


DATA ELEMENT SOURCE 
Date Input Document 
Name Input Document 
Purpose Input Document 
Amount Input Document 


FORM OF OUTPUT: RECORD OF COLLECTIONS REPORT 


DATA ELEMENT SOURCE 
Date Cash Receipt Slip 
Name Cash Receipt Slip 
Purpose Cash Receipt Slip 


Amount Cash Receipt Slip 
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FORM OF OUTPUT: RECORD OF EXPENDITURES REPORT 


DATA ELEMENT 
Data 
Name 
Purpose 


Amount 


SOURCE 
Expenditure Voucher 
Expenditure Voucher 
Expenditure Voucher 
Expenditure Voucher 


FORM OF OUTPUT: RECORD OF MESS MEMBERS 


DATA ELEMENT 
Name of Member 
SSN 
Date Joined 
Date Detached 
Value of Share When Joined 
Value of Share When Detached 


SOURCE 
Mess Member 
Mess Member 
Current Date 
Current Date 
Previous Month Statement 
Previous Month Statement 


FORM OF OUTPUT: MONTHLY MESS BILL STATEMENT 


DATA ELEMENT 
Name 
SSN 
Mess Share Due 
Mess Bill Due 
Past Mess Bills Due 
Special Assessments 


Total Due 
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SOURCE 
Record of Mess Members 
Record of Mess Members 
Accounts Receivable Report 
Calculation 

Accounts Receivable Report 


Mess President 


Total of Above 


APPENDIX C 


DATA ELEMENT 


Total Receipts 
Total Expenditures 
Total Assets 

Total Liabilities 
New Worth 


Total Liabilities and Net Worth 


Number of Members 
Current Value of the Mess Share 


Change in Share Value 


Provisions Received 


Provisions Consumed 


Average Number of Officers 
Subsisted 


ALGORITHM 


Total all entries on the receipt side of 
the cash account 


Total all entries on the expenditure 
side of the cash account 


Total all entries on the asset side of 
the balance sheet 


Total all entries on the liabilities side 
of the balance sheet 


Difference between total assets and 
total liabilities 


Net worth plus total habilities 


Total the number of mess members 
from the record of mess members 


Divide the net worth by the number 
of mess members 


Compute the difference between the 
current value and last months mess 
share value 


Total the value of all receipts from 
both the FSO and any vendors 


Add beginning inventory and provi- 
sions received and then subtract 
ending inventory 


Number of meals during the month 
divided into the total number of 
meals consumed by officers and 
guests 


45 


DATA ELEMENT 


Average Number of Enlisted 
Subsisted 


Total Subsisted From the Mess 
Cost Per Man 


Past Mess Bills Due 


Current Mess Bill Due 


Total Mess Bill Due 


ALGORITHM 


Number of meals during the month 
divided into the total number of 
meals consumed by enlisted 
personnel 


Sum of average enlisted subsisted 


Provisions consumed divided by 
total subsisted 


Total of all unpaid mess bills carried 
forward from previous months. 
Found on accounts receivable 
statement 


Calculation depends on the type of 
proration used by the mess: 


- Subsist: Cost of individual meals 
consumed by the member 


- Equal Share: Total cost of oper- 
ating the mess divided by 
number of mess members 


Total of old bills, current bill, mess 
share owed, and special assessment 
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APPENDIX D 
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"Congratulations, you are the wardroom s new Mess 
Treasurer." Few collateral duties, within the shipboard 
environment are more dreaded and susceptible to failure. Cana 
computer come to the rescue? A current thesis proposal 
undertakes 1519. automate the reports and record keeping 
requirements of the Mess Treasurer. 

As early as 1970 professionals in the computer industry 
predicted the lack of understanding of psychological processes 
would be the main impediment to future interactive computer 
program development.’ An analysis of the inter eee program, 
designed for this thesis, was conducted in terms of cognitive 
ergonomics or “user friendliness". In computer programing, user 
friendliness is anything that improves the quality of the 
interaction, reduces the probability of catastrophic mistakes or 
makes it easier for users to obtain help from the system.’ The 
human factors guidelines for this paper were taken from a German 
research paper published in Lecture Notes in Computer Science, 
Vol 110. Specifically, the human-machine interface was evaluated 
in terms of five objectives: 

Dialogue Flexibility 
Transparency 
Ease of Learning 


Ease of Use 
Reliability? 


On ®& WN} 


MISSION DEFINITION 


The computer program, Accounting Systems for Private Messes 


Afloat, was developed following guidelines established by the 


1 
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Navy Food Service Systems Office (thesis sponsors) and Navy 
Supply Publication 486, volume 2. The program will ultimately be 
used by all ship types on a hard disk configured micro computer. 
Rapid turnover of Mess Treasurers and the lack of any formal 
training dictated a computer program that would be both easy to 
understand and operate. 

With this background, the goal during software development 
was to write a program that could both handle any one of the 
seven different authorized accounting methods and be operated by 
a truly naive user. This type of user usually seeks to minimize 
the amount of learning, time, and effort devoted to using a 
computer program and assumes the system is fool proof.* 
Additionally, the user was projected as not having a deep 


knowledge of accounting practices, Supply Corps terminology, or 


computer technology. 
DIALOGUE FLEXIBILITY 


THE SYSTEM DOES NOT BEHAVE IN A RIGID AND UNCHANGEABLE WAY 


BUT IT CONSIDERS DIFFERENT NEEDS AND SKILLS OF THE USER.* 





The program interacts with the user through a series of 
menus. Selection of activities through menus when working with 
data bases is the preferred programming method over such others 
as form filling, question and answer, and prompting methods. It 
does not require users to generate commands from memory, an 


important consideration. 
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Program activities are selected by entering a number called 
the selection code and system response is immediate. The enter 
or return key does not have to follow. The program consists of 
three basic types of screens; menus, data input, and information. 
Examples of these screen formats are provided in Illustrations l, 
Zs ane Sm 

An important aspect of dialogue flexibility is to ensure 
system activities are determined by the user. This was 
accomplished by having at least two alternatives on each menu. 
Additional "all menus have seven or fewer altartetioan staying 


within the upper limit of short term memory. 


UTILITY PROGRAMS MENU 


SELECTION CODE 
SET UP PROGRAM PARAMETERS--------------- L 
INITIALIZE DATABASES-------------------- 2 
CHANGE PASSWORD------------------------- 3 
PRINT CURRENT DATA FILES---------------- 4 
DATA FILE RECOVERY---------------------- 5 
RETURN TO MAIN MENU--------------------- 6 


ENTER. OR Gel SON . CORE, 


ILLUSTRATION 1 
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TR-Ol2 





NEW MEMBER INFORMATION 


NAME OF NEW MEMBER: 
Becuee, o bio LTE 


SSN NUMBER: STATUS 


(M,E) 


DATE JOINED: re RANK: 
MM D> 





IS THE ABOVE INPUT CORRECT? (Y/N) 


ILLUSTRATION 2 


CNGrweeoteerns> LHe PORN: ©£HE OLD 


SET-UP PILE Wi Giles bre ERASED Sule! 





ARE YOU SURE YOU WANT TO CHANGE THIS FILE? (Y,N) 


ILLUSTRATION 3 
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The ability to adapt to a user’s skill level is an important 
area of dialogue flexibility that was not incorporated into this 
software package. The use of menu formatting does not facilitate 
this, as 1t is slow to use for people who can specify precisely 
what they want without being led through a series of explicit 
choices. 


RECOMMENDATION: No changes in terms of dialogue flexibility are 


recommended. The program is designed to offer a fixed set of 
activities. The premise that over the long run the program will 
be used by a novice is a good one. This negates the need for a 


system with extension functions that will offer different modes 
of input, user initiated modification of program structure, or 
screen output in different levels of detail. 


TRANSPARENCY 


THE SYSTEM BEHAVIOR IS TRANSPARENT TO THE USER. THAT MEANS 
THAT THE USER CAN DEVELOP A CONSISTENT MODEL OF THE SYSTEM 


WHEN WORKING WITH IT. BY THIS MODEL, THE SYSTEM BEHAVIOR 
BECOMES PREDICTABLE AND INEFLUENCEABLE FOR THE USER. ° 





The program requires input of a minimal amount of 
information relating to financial transactions. Erom there 
records are updated and reports generated. Each user resp one 
input produces the next set of options. The user does not have 
to specify such things as what reports the information is for or 
what records should be updated. 

The treatment of ship riders that become temporary members 
of the wardroom (eat their meals in the wardroom) is an effective 
use of program transparency. The Mess Treasure is only concerned 


with these individuals when they are about to depart and must pay 
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their Mess Bill. Concurrently the program does not require any 
actions concerning ship riders until they are ready to depart. 
Menu screens are used that are similar to those for adding new 
mess members and generating monthly bills. This standardized 
interface, showing equal behavior in equal situations, is typical 
throughout the program and contributes to system predictability. 

One difficulty in transparency experienced during testing 
was immediately corrected by the program developers. The 
confusion occurred at the end of the utility program. After 
completing the last task in the "set up program parameters” 
option, the program automatically returned to the main menu. No 
indication was provided that the input was successful or set up 
completed. This part of the program was changed to display a 
message screen which advises the user that the "set up program is 


complete” (Illustration 4). 


| SETUP PROGRAM COMPLETE | 


PRESS ANY KEY TO CONTINUE... 


ILLUSTRATION 4 
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An important aspect of transparency is knowing or having the 
ability to find your location in the program at any time. The 
program uses an identification number in the top left corner of 
each screen (M-O in Illustration 1). Although this does not 
completely identify to the user their exact location, it does 
provided a coding system for location ina users manual or flow 
Gharc: 

RECOMMENDATION: The use of a more descriptive, plain language, 


format for screen identifications (in the top left corner) would 
allow the program to better identify its location. 


, 


EASE OF LEARNING 


TO OPERATE THE SYSTEM IS EASY. TO LEARN AND REQUIRES NO 
ADDITIONAL MEANS -- THE' USER CAN LEARN IT BY USING THE 


SYSTEM. SIMPLE TASKS REQUIRE NO SPECIAL QUALIFICATIONS 
Orrin: UStR. ' 





Program operation extremely easy to learn. The program 
steps a user through saci option, requesting all the necessary 
information. No special Knowledge or introductory courses should 
be required for a first time user. The system supports learning 
by doing. 

Additional expert help for the program will be available 
through Navy Food Management Teams. This assistance is 
envisioned as being provided primarily over the telephone, 
requiring only problem symptoms and appropriate screen numbers. 
RECOMMENDATION: Provide a practice set for the first time user. 
This should contain sample data input opportunities and be 
completed before assuming Mess Treasurer duties. 
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RECOMMENDATION: Offer online access to the user manual. 


EASE OF USE 


THE SYSTEM IS A PRACTICAL TOOL FOR THE USER WHICH DOES NOT 
FRUSTRATE. IT IS DESIGNED IN A WAY THAT IT CAN BE HANDLED 


ACCORDING TO NEEDS AND QUALIFICATION; IT PROVIDES HELP AND 
REACTS TOLERANTLY TO USER MISTAKES.* 





Ease of use encompasses both ease of program operation and 
the tolerance of errors. The difference between this category and 
the previous, Ease of Learning, is most important. Frustration 
Can occur at both ends of program structure. A program that is 
too simplistic can be as frustrating as one that is_ too 
complicated. This program remains simplistic, it does not evolve 
with the user as he gains experience in operating the system. 
This simplicity, though likely to frustrate advanced users, is a 
necessity for a user population projected to be constantly 
changing and always with fewer than six months experience. 

Help menus, a critical function when considering software 
for novice users, were still being developed and not available 
for testing. This feature is an additional requirement to online 
access to the user’s manual. 

The program does not force the user into hasty actions. The 
computer tells the user when it is their turn by changing to a 
new screen. Every data input is followed by a request for 
command confirmation. The question "IS THE ABOVE INPUT CORRECT? 
(Y/N)" is displayed at the bottom of the input screen, ina 
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different color and requires a response. Default keys (any key 


other than Y or WN) register "Ne. The use of command 
confirmations and default keys to "undo" mistakes enhance the 
programs usability. Illustrations 5 and 6 demonstrate a typical 


sequence of command confirmation screen displays. 

Error prevention and recognition were also stimulated by 
using previous input on the next display screen. The matching of 
social security numbers to name is an example of this transparent 
and effective error protection feature. All Mess member 
eransaeeilone ane initiated by social security numbers. After 
social security number input and verification the next screen 
would contain the members name or both the social security number 
and the members name. 

In analyzing program response to errors against the current 
state of the art, this program does not assume responsibility for 
errors, as may be found in more sophisticated software. Some 
very helpful error messages are provided. These include messages 
that prevent overpayment of Mess Bills and warnings of data base 
deletion during program set up. Errors that are not detected by 
command confirmation and enter the data base can be very 
GeEereuLt “Coy COREeC ts The program does not attempt to use 
artificial intelligence or some other state of the art system to 
overcome garbage in, garbage out. 

RECOMMENDATION: Complete development of help menus’ for each 
screen and include explanations for both general problems and 


Situation dependent problems. 


RECOMMENDATION: Provide a way to. correct numeric errors. If 
incorrect data passes command confirmation, corrections can only 
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MEMBER INFORMATION 
NAME OF NEW MEMBER: MADDEN, MICHAEL T. 
LAST, FIRST MI 


SSN NUMBER: 094501751 STATUS: M 
(M,E) 


JEP ae 





Bate JOLNED: 12/24/88 RANK: 
MM DD YY 


fomene ABOVE. -INPUTBCORREGCT? (YN) 


ILLUSTRATION 5 









NEW MEMBER INFORMATION 
NAME OF NEW MEMBER: MADDEN, MICHAEL T. 
LAST, F@RST MI 


SSN NUMBER: 094501751 SrATeS:. M 
(M,E) 


LT 





DATE JOINED: 12/24/88 RANK: 
UU ig ps ad OOS 





[Sean e ABOVE INPUT VSGRREGrT? (Y,N) 





ILLUSTRATION 6 
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be made by a counter balancing entry or by erasing all inputs 
during that session. This was done to protect the data base 
however, it will likely cause unnecessary work for the user who 
desires error free records or frustrate the user who does not 
have an accounting background. 


RECOMMENDATION: Include hints for correction in error messages. 


RELIABILITY 


THE SYSTEM IS DESIGNED IN A WAY THAT THE USER CAN DO HIS 


WORK WITH IT IN A RELIABLE MANNER.’ 





6 


During testing unexpected tasks or results were not 
encountered. The use of a micro computer, instead of time 
sharing on a ships main frame, should provide the independence 


necessary to maintain acceptable user availability. Response 
time for the most part was very good, though certain functions 
took up to 30 seconds. 

Reliability can also be measured by the amount of security 
and data protection provided by the program. Pass word entry, 
Shown in [Illustration 7, is used during program start-up. Data 
protection is offered in many ways. several which have already 
been presented (conmand confirmation, default keys, etc.). In 
addition data bases cannot be changed after final monthly reports 
are generated. Another feature that significantly improves 
system reliability is the automatic back-up of all data onto a 
floppy disk at the end of each session, shown in Illustration 8. 


RECOMMENDATION: No changes in terms of reliability are 
recommended. 


a 
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THE PASSWORD WILL NOT APPEAR WHEN TYPED! 


ENTER YOUR PASSWORD :; 


ILLUSTRATION 7 


ENS Ome ORMADIED ARCHIVE DESK IN DRIVE A 


ILLUSTRATION 8 


PHYSICAL INTERFACE 
Physical interface refers to the media by which information 
is passed between the user and the computer. On the computer’s 
Side are such thing as keyboards, printer, and visual displays. 
On the user’s Side are, primarily, eyes, ears, and 
fingers.’*° Cognitive ergonomics and physical interface are not 
independent functions. The “user friendliness" of a program can 
be significantly influenced by the visual displays it has. 
Although an in depth study was not conducted on physical 
interface, three aspects of visual displays were noted anda 
brief discussion follows: 

LETTERING - Studies have shown that lower case lettering is 
more legible than texts printed all in capitals. In an elaborate 
research program it was found that text printed in capitals was 
read on average about 14% more slowly than lower case text.*? 


All upper case lettering was used in this program. However, the 


12 
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programers felt double spaced, capital lettering would be more 
readable in the underway shipboard environment. 


COLORS - With color monitors installed in most of the shipboard 
systems, decisions on which color combinations to use had to be 
made. The use of opposite ends of the color wavelength spectrum 
in blue and red were good decisions for two reasons. First, the 
obvious contrast of these two colors, using two different cones, 
achieves the instant recognition desired for a highlighted area 
and these colors are discernable by those with color blindness.’*? 
The use of yellow lettering to record input over ae solid red 
background does not provide a contrast and is difficult to read. 
RECOMMENDATION: Change the input lettering to a dark color. 

TEXT DISPLAY - Text is centered on the screen and the user’s eyes 
tend to fall in that area when each new screen appears. Display 
of input differs between the "two finger typist" and the 
experienced typist. Location of typed input to minimize head 
movement for the "two finger typist" would be at the bottom of 
the screen (Keyboard to monitor movement) while the design eye 
position would favor the experienced typist. The program favors 
an experienced typist and no changes are recommended. 

SUMMARY 

Even though the five objectives used to evaluate the 
cognitive ergonomics Of eat ees program were not originally 
considered by the programers, userfriendliness was achieved. The 
programmers took their ideas from other programs they felt were 
user-friendly. 

Help screens are the one feature, not yet available but 
under development, that current literature specifies must be 
incorporated into software when programming for the novice user. 

When evaluating this program against the standards available 
from current technology, some deficiencies exist. However, when 
considering the projected typical user, the latest in extension 
functions and multiple modes of input would do little to improve 


"user friendliness". 


is 
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APPENDIX E 


ADD-MBR 


PROCEDURE ADD-MBR 
SEOOKOOKOK OOK OK OOK OK IOKOK —ICIOK—ICOKOKKGIOIIOKOKOIKCIOIOKICKIOKOIK—IOIIOIIOKIKIIKKKKK KKK KK KOK 


* NAME: ADD-MBR.PRG 

* AUTHORS: LCDR J.L.TWIGG 

* LT M.T.MADDEN 

* PURPOSE: ADDS NEW MEMBERS TO THE DATABASE AND ASSESSES ANY 
4 NECESSARY CHARGES. 


% HM HM 


KK OK OK OK OK OK KK KOK KOK OK OK OK OK KK OK OOK OK KOK OIK KK IK IK IKK IK IK IKK IK IKK IK IKK AK IK AK IK DIK DIK DIK IK IK IK IK IK IK IK IK AK IK OAK AK FAK IK IK OK OK 


x LISTING: 
t 


STORE 
STORE 
STORE 
STOR: 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


TO TMESS 

" " TO ANS 

" * TO CHOICE 

~ '5TO0 TSTAD 
000.00 TO TSHAR 
SPACE (20) TO TNAME 
DATE() TO MDATE 
0000.00 TO TEMPA 
0000.00 TO TEMPB 
O00,00.TO TELLE 
00 TO TDAY 

00 TO TMON 

0000 TO TREC 


SEBEG TD 
USE SETCAT 


TMESS 


= MESS 


SELECT A 
USE INV 


TSHAR 
CHOICE 


= VAL_FWD 
= ty? 


DO WHILE UPPERCGMOICE) =" °y" 
ANS = 'N' 
SELECT B 
USE MEMBERS 
APPEND BLANK 
DO WHILE UPPERC(CANS) <> '‘y' 


SET FORMAT 10 MBR=SeReen ral 

EDIT 

SET COLOR TO W+t/R,, , 

ad 20,20 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) 
SET COLOR TO B/B,, 

WAIT * °* TO ANS 

SET COLOR TO W+/B,, 

CLOSE FORMAT 


] 


ENDDO 
CLEAR 
SKIP 
TNAME 
TSTAT 
TREC 


SSN 
STATUS 
RECNO(C ) 


LT | 


GOTO TOP 


LOCATE FOR (TNAME = SSN) 


-AND. CRECNO() <> TREC) 


IF FOUND() 
GOTO TREC 
DELETE 
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PACK 
CLEAR 

@ 10,10 TO 14,68 DOUBLE 

SET COLOR TO W+/R,, 

@ 12,25 SAY { MEMBER IS ALREADY IN THE FILE ! ] 
SET COLOR TO W+/B,, 


d 15,1 SAY [ ] 
WAIT TO CONT 
ELSE 
GOTO TREC 
Pec otArUS = "M™) AND... (TMESS.<>.'E" ) 


REPLACE SHAREIN WITH TSHAR 
REPLACE SHAREOUT WITH 0.00 
ELSE 
REPLACE SHAREIN WITH 0.00 
REPLACE SHAREOUT WITH 0.00 
ENDIF 
[Mee (STATUS = 'M') .AND. (TMESS <> 'E') 
SELECT C 
USE TRANS 
APPEND BLANK 
REPLACE TTYP WITH 'AR' 
REPLACE DATE_IN WITH MDATE 
REPLACE AMT WITH TSHAR. 
REPLACE NAME WITH TNAME 
REPLACE PURPOSE WITH 'MESS SHARE’ 
REPLACE DATE_PD WITH 'CM' 
ENDIF 
IF TMESS <> 'E! 
SELECT D 
USE SETCAT 
TBILL = SUG _BILL 
IF TSTAT = 'M' .AND. METHOD = 'B' .AND. SUBSIST <> 'Y' 
SELECT E 
USE DYSWKD 
APPEND BLANK 
SET FORMAT TO DYS.FMT 


ANS = 'N' 
DO WHILE UPPER(ANS) <> ‘yY' 
EDIT 


SET COLOR TO W+t/Rk,, 
dies ,ccoeoAy. | TS THE ABOVE INPUT CORRECT? CY/N) 
SET COLOR TO B/B,, 


WAIT *' * TO ANS 
SET COLOR TO W+/B,, 

ENDDO 

CLOSE FORMAT 

Ske =1 

TDAY = WORKD 

TMON = MONDYS 

DELETE ALL 

PACK 

CLEAR 

TEMPA TBIeE. 7 THON 


TEMPB = TEMPA * TDAY 
SELECT C 

APPEND BLANK 

REPLACE TTYP WITH ‘AR’ 
REPLACE DATE_IN WITH MDATE 
REPLACE AMT WITH TEMPB 
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] 


REPLACE NAME WITH TNAME 
REPLACE PURPOSE WITH ‘MESS BILL’ 
REPLACE DATE_PD WITH '‘'CF' 
ENDIF 
ENDIF 
ENDIF 
CLOSE ALL 
CLEAR 
@ 8,12 TO 12,59 DOUBLE 
SET COLOR TO W+/R,, 
3 10,15 SAY [ DO YOU WISH TO ADD ANOTHER MEMBER? (Y/N) ] 
SET COLOR TO BZB,, 


WAIT * * TO CHOICE 
SET COLOR TO W+/B,, 
ENDDO 

CLEAR 

RETURN 


* END ADD-MBR.PRG 
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x ADET-MBR “ 
SOKO COCCI ICCC OKA OK OOK KKK KOK OK 


PROCEDURE ADET-MBR 
OCI ICICI OKC OKK OK COOK 


* NAME: ADET-MBR. PRG * 
*® AUTHORS: LCDR J.L.TWIGG * 
4 LT M.T.MADDEN *~ 
* PURPOSE: PRINT SUMMARY BILL FOR DETACHING MEMBER. x 


KOK OK OK XK OK OK OK OK OK KK OK OK OK OK OK KK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KKK KK OK OK K KKK KK KK KKK KK OK XK 


* 


LISTING: 
meee SAY ee —( i ssi‘ ‘CONCOCCC 
4, 26 SAY "SUMMARY FOR A DETACHING MEMBER" 
5, 23 say" 

7, 23 SAY "NAME:*" 

7, 35 SAY MEMBERS->NAME 
9, 23 SAY "RANK:" 

9, 29 SAY MEMBERS~>RANK 
9, 45 SAY "SSN:" 

9, 51 SAY MEMBERS->SSN 

i, 23 SAY " " 

13, 23 SAY "MESS SHARE REFUND" 

14, 23 SAY "OWED TO MEMBER:" 

14, 54 SAY MEMBERS->SHAREOUT 

16, 23 SAY "MESS BILL OWED BY" 

17, 23 SAY "MEMBER TO THE MESS:" 

17, 54 SAY MEMBERS->BILL_OUT 

18, 23 say" " 

END ADET-MBR.PRG 


- 
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7K KK RRR RIK OR IR OR AR OR OR RK OR OR RR RR OK KOK KOK ORK ROK OK KR IK RK KK AR RIK OR AK AK IK IKK OK OK OK OK OK OK OK OK OK OK 


= ASEL=FS * 
CCCI ICI IO ICICI III ICICI ICICI IK IK III IKI KIKI IK OK OK 


PROCEDURE ASET-FS 
_OK ICICI ICICI ICO III IOI IKI KIO IK IK OKI KIKI KKK IKK KK IK KCK OK IK KKK OK 


* NAME : ASED=FSaPRG * 
* AUTHORS: LCDR J.L.TWIGG ~ 
* LT M.T .MADDEN as 


* PURPOSE: CALCULATES ASSET TOTALS FOR THE FINANCIAL STATEMENTS. * 
OIC ICICI OOOO OOK III IO KOKI KK IK IC CK KKK OK KOK OK 


*PULSLTING: 
SITORESOGO000;00 TC TEMFT 
STORE 000000.00 TO TEMP2 
St@RE OOO0CO. 00 TG TEMPS 
STORE 000000.00 TO TEMP4 
STGRE O0WGO0.00 TO) TEMPS 
STORE O000U0 00 TO TEMPS 
STORE VOO00C0.00 TO TEMP, 
STORE OO00000.00 10 TEMPS 
Selec lee 

USE FININC 

TEMP! = CASH_CF 


SELEG. 0 
USE TRANS 
DO WHIEE SNOT. “EGF 
TP Ulove, = “AR 
DO CASE 
CASE PURPOSE) —-) MESSor Ter 
TEMP2. = TEMeZe An 
CASE PURPOSE 23 ESS snare” 
TEMPS = TEMPSe SAT 
CASE PURPOSE = 'COMRATS DUE' 
TEMP4 = TEMP4 + AMT 
OTHERWISE 
TEMPS =" TEMP Sie. 
ENDCASE 
ENDIF 
Sic r ov 
ENDDO 
SELECT C 
USE INV 
TEMPS °= ESENV 
TEMPE? = NeINV 
TEMPS = TEMP! + TEMP2 + TEMPS + TEMPS + TEMPS tebe Powe le 


oY ay BP 8 

USE FINBAL 

REPLACE CASH_OH WITH TEMP1 
REPLACE BILES_UN WITH TeiIeZ 
REPLACE SHARE_UN WITH TEMP3 
REPLACE COMRAT_UN WITH TEMP4 
REPLACE OTHER_A WITH TEMPS 
REPLACE PROV_INV WITH TEMP6 
REPLACE TIL_ASS WITH TEMPS 
REPLACE OTHZENVY WETH TEMP7 
CLOSE ALL 

RETURN 

SEND VASET -—FS-2RG 
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- BAL-FS K 
FCO ICICI ICICI ICI OK ICICI ICICI III IK FICK ICICI IKK ACK 


PROCEDURE BAL~-FS 
FCCC KOKO ICCC CIO IK ICICI ICICI ICI ICI ICICI IKK IK CICK KOK 


* NAME: BAL=FS-FPRG - 
* AUTHORS: LCDR J.L.TWIGG a 
* LT M.T.MADDEN ~ 
* PURPOSE: PRINTS BALANCE SHEET SIDE OF FINANCIAL STATEMENT. * 


KKK OKO KK KK KOK K OK KR OK KR OK AK OK OK ACK FARR AKIRA AK KR OK ACK AK AK IK IK ROK IK AK KK IK KK AK IK AR IK ACA OK 


* LISTING: 
fe@ee27 SAY "BALANCE SHEE 
Bee, 27 SAY ” : 
a 34, 16 SAY "ASSETS Rae rat bese 
Moga 2 SAY * | 
7 
36, 2 SAY "CASH ON HAND MESS BILL" 


37, 2 SAY "THIS DATE:" 

37, 30 SAY FINBAL->CASH_OH 

37, 42 SAY "REFUNDS OWED:" 

37, 66 SAY FINBAL->BILLS_OWD 

39, 2 SAY "MESS BILLS MESS SHARE" 
40, 2 SAY "UNCOLLECTED:" 

40, 30 SAY FINBAL->BILLS_UN 

40, 42 SAY "REFUNDS OWED:" 

40, 66 SAY FINBAL->SHARE_OWD 

42, 2 SAY "MESS SHARES PROVISIONS FROM" 
43, 2 SAY "UNCOLLECTED:" 

43, 30 SAY FINBAL->SHARE_UN 

43, 44 SAY "SUPPLY OFFICER OWED:" 

43, 66 SAY FINBAL->PROV_FSO 

44, 44 SAY "DEALERS OWED:" 

44, 66 SAY FINBAL->PROV_VEND 

45, 2 SAY "COMMUTED RATIONS" 

46, 2 SAY "UNCOLLECTED:" 

46, 30 SAY FINBAL->COMRAT_UN 

46, 42 SAY "MEALS FROM FSO OWED:" 

46, 66 SAY FINBAL->MEAL_PURC PICTURE "99999.99" 
48, 2 SAY "INVENTORY OTHER LIABILITIES:" 
48, 66 SAY FINBAL->OTHER_B 

49, 5 SAY "PROVISIONS:" 

49, 30 SAY FINBAL->PROV_INV 

50, 5S SAY "NON-PROVISIONS" 

50, 30 SAY FINBAL->OTH_INV 

50, 42 SAY "TOTAL LIABILITIES:" 

50, 65 SAY FINBAL->TTL_LIAB 

52, 2 SAY "OTHER ASSETS:" 

52, 30 SAY FINBAL->OTHER_A 

52, 42 SAY "NET WORTH:" 

52, 65 SAY FINBAL->NET_WORTH 

53, 2 say" 


@B@eoeaqaveaqaaaqaaeaawamtsaagsaaaweeawaee @ & & & @& & 


54, 42 SAY "TOTAL LIABILITIES" 
Boe 2 SAY “TOTAL ASSETS:" 
weae22 SAY FINBAL->TTL_ASS 
55, 42 SAY "AND NET WORTH:" 
55, 65 SAY FINBAL~>NW_LIAB 


@; @ @ @ @ 
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@*56, 2 SAY 
re 


* END BAL-FS.PRG 











iH 
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* COMRTS _ 
OKO CKO ICICI ICO ICICI ICICI ICO III OKO IOI KKK KKK 


PROCEDURE COMRTS 
OK IOOK OOK ICO KOO IO ICO ICO ICICI KIO IOI IC III KK OK KOK 


* NAME : COMRTS .PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN an 
* PURPOSE: PRINTS COMMUTED RATIONS STATEMENT. * 


KKK KK KK KKK KK KK KK KK KK KKK KK KKK KK KKK KK KK KKK KKK KK KKK KK KKK KK KK KK KKK KKK 


LISTING : 
Pemeoeeoay "C OM PUTATION OF G0 MoM ft Bed R Ava, I ON S"* 
See 9 =SAY ” : 
i719 «SAY "OFFICER AND GUEST MEALS" 


* 


13, 55 SAY SUMMARY->OGMEALS ' 


1, 19 SAY "ENLISTED MEALS 5 a 
15, 55 SAY SUMMARY->ENL 
16, 54 SAY "_" 


i77 19 SAY “TOTAL MEALS" 

17, 55 SAY SUMMARY->TMEALS 

Zeeeio SAY "ENLISTED MEALS PERCENTAGE*® 

19, 55 SAY SUMMARY->ENPERC 

21, 19 SAY "PROVISIONS CONSUMED xe 

21, 51 SAY SUMMARY->PCON 

ee, 50 SAY * . 

Zee oAY “ENLISTED PROVISIONS COST" 

fees oAY SUMMARY->PRVCST 

2eyets SAY “AVATLABLE COMRATS" 

25, 52 SAY SUMMARY->MAXRATS 

Cope if SAY * . 
28, 19 SAY “AMOUNT DUE FROM DISB. OFFICER" 

28, 52 SAY SUMMARY->AMTDO 

ae, 19 #=3SAY * % 


Q@eaeaQqQaeeaeaaqaaaaqaaaaems& @&@ ea a @ x 


* 


END COMRTS.PRG 


Mt 


RR RR ROOK OK III’ OOK CICK OKO IKK IOI OKI IK KOO KKK OOK KOK 


x COst=—Fs a 
MK KK OK KK KK KK KKK KK KOK OK KOK OK KKK OK IKK OK KOK KKK KKK KOK OK 


PROCEDURE. COST=FsS 
COICO CICIOCIOIORICIIOCIOK ICICICIOIIOICICICICIOIOK ICICI ICICI IOI ICIOIOIOK IOI II ICICI KK 


® NAME : COST-FS .PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT H.1I.MADDEN * 
KX PURPOSE: PRINIS THE COST PER "MAN Siete. * 


KK OK KK EK KR OK ER KK RK KK KK ROKK KK KKK KOKO IK KOKI IK KOK OK KOK 


LISTING: 

20, 25 “SAY. "C 0.:S.-1T PER MA N" 

ml, 2S BOALG sae eee eee 

Zo 7 SAY "AVERAGE NUMBER OF OFFICERS SUBSISTED" 

23, 57 SAY SUMMARY->OAVG . 
Pie 7 SAY “AVERAGE NUMBER OF ENLISTED PERSONNEL SUBSISTED" 

PAS\ ASG) SAY SUMMARY->EAVG 

26, 57 Say * e 

28; 7 SAY "TOTAL SUBSISTED FROM THE MESS" 

28, 57 SAY SUMMARY->TTL_SUB 

30, - SAY "PROVISIONS COMSUMED BY THE-MESS" 

30, 55 SAY SUMMARY->PCON PICTURE—"999999.99" 

515 S2eaSA yee . 

Si Gy 7 SAY "COST PER MAN" 

33, 58 SAY SUMMARY->COSTMAN 

34, 7 SAY " 
35, 7 Shy: . 
37,1 SAY [Accounts Receivable /’ Payable are listed on attached documents. J 
39,1 SAY [I certify the forgoing statements to be correct, that the 
provisions ] 

@ 40,1 SAY [shown on the attached inventory are in good condition and carry 
their ] 


eeqgaoaaaoa @®@aaqaqaqeeWsaaQaas x 


@ 41,1 SAY [proper value, and that the mess has no assets or liabilities other ] 
@ 42,1 SAY [than those listed. ] - 

a@ 44,4 SAY [ __ _ ee es EEE 
d 45,10 SAY [Date Mess Treasurer ] 

@ 47,1 SAY [AUDITED BY: } 

a 48,15 SAY [ SS  —E eee 

ad 49,21 SAY [Member Member J 

a 51,41 SAY [ eae 

d@ 52,45 SAY [Senior Member ] 

@ 54,1 SAY [APPROVED BY: J 

3 55,17 SAY [ el eee 

d@ 56,21 SAY [ Date Commanding Officer ] 

CLOSE ALL 

RETURN 


* END COST<-FS 
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- CRATS-FS as 
SOIC ICICI ICICI ICICI IIIA ICI IKK KAKI KAKI KK KOK 


PROCEDURE CRATS<-FS 
CKO ICICI ICICI ICI ICICI ICICI ICICI IKI IK KIKI K KK OK 


* NAME: CRATS~FS.PRG x 
* AUTHORS: LCDR J.L.TWIGG o~ 
x LT M.T.MADDEN 40 
®SPURPOSE: GENERATES THE COMRATS DUE THE MESS FIGURE. x 


AR KKK KK OK KOK AK KOK IK ROKK KKK KK OK IK KKK IK KCK KK IKK IK KK KK OK IK KK IKK IK IK KK IK KK OK KK KOK OK OK KKK OK OK OK 


SeLISTING: 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


0000000 TO TEMP' 
00000.00 TO TEMP2 
GOGGO0 TO TEMP3 
0.0000 TO TEMP4 
000000.00 TO TEMPS 
000000.00 TO TEMPA 
00000 TO TEMPB 
00000.00 TO TEMPC 
HGG00.00 TO TEMPD 
Bartet) TO MDATE 
10 ANS 
SPACE(ZS) TO TNAME 


SELECT A 

USE SUMMARY 

REPLACE OFF WITH 00000 
REPLACE GUST WITH 00000 
REPLACE ENL WITH 00000 
REPLACE DAYMON WITH 01 


CLEAR 
Sec oLOR TO W+/EB,,R 
ANS = 'N'* 


SeaecOrnrmAal IO SUM-IP.FMT 
BGmwHeok UPPERCANS) <> ‘'y' 
mult RECORD 1 
SET COLOR TO W+t/R,, 
lise eesoAy | IS THE ABOVE INPUT CORRECT? (Y/N) |] 
SET COLOR TO B/B,, 
WAIT * * TO ANS 
SET COLOR TO W+/B,, 


. ENDDO 


SET COLOR TO GR+t/R,,N 
CLEAR 

@ 8,10 TO 14,68 DOUBLE 

d 10,18 SAY [ CONTINUING FINANCIAL STATEMENT COMPUTATIONS ! ] 
3d 12,32 SAY [ PLEASE STANDBY ! ] 

CLOSE FORMAT 

SKIP -1 

TEMPi1 = OFF + GUST 

REPLACE OGMEALS WITH TEMP1 

RATION = 3 * DAYMON 

SUBSIS = TEMP1 / RATION 

REPLACE OAVG WITH SUBSIS 

ESUBSIS = ENL / RATION 

REPLACE EAVG WITH ESUBSIS 

TEMP2 = ESUBSIS + SUBSIS 

REPLACE TTL_SUB WITH TEMP2 
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TEMP 3, = CEM + ENE 

REPLACE IMEALS WITH TEtirs 
TEMP4 = ROUNDCENL / TEMP3,3) 
REPLACE ENPERC WITH TEMP4 


TEMPS = PCONSUMED 
TEMPA = ROUND(TEMPS * TEMP4,2) 
SELECT C 
USE MEMBERS 
DO WHILE .NOT. EOF() 
DO CASE 
CASE STATUS = 'E' 
TNAME = NAME 
SELECT D 
USE DYSWKD 
SET COLOR TO W+/B,,R 
CLEAR ; 
ANS = 'N! 
DO WHILE UPPER(ANS) <> 'Y' 
SET FORMAT TO ASSIGND.FMT 
APPEND BLANK 
REPLACE DNAME WITH TNAME 
EDIT RECORD 1 ~ 
SET COLOR TO W+/R,, 
a 16,22 SAY [ IS THE ABOVE INPUT CORRECT? 
SET COLOR TO B/B,, 
WAIT ' ' TO ANS 
SET COLOR TO W+/B,, 
CLOSE FORMAT 
ENDDO 
CLEAR 
SKIP -1 
TEMPB = TEMPB + WORKD 
DELETE ALL 
PACK 
ENDCASE 
SELECT EC 
SKIP 1 
ENDDO 
SET COLOR TO GR+/R,,N 
CLEAR 
3 6,10 TO 16,68 DOUBLE 


_@3@ 10,18 SAY [ CONTINUING FINANCIAL STATEMENT GENERATION ! 


a 12,31 SAY [| PEEASE STANDEY 
SEUECT «6 

USE SETCAT 

TEMPC TEMPE “ ERATS 

TEMPD MIN CTEMPC,TEMPA) 


SELECT A 

REPLACE OGMEALS WITH TEMP1 
REPLACE TMEALS WITH TEMP3 
REPLACE PEON WITHSeTEMES 
REPLACE PRVCST WITH TEMPA 
REPLACE MAXRATS WITH TEMPC 
REPLACE AMTDO WITH TEMPD 


SELECT F 
USE TRANS 


CY/N) 


] 


APPEND BLANK 


REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 


re wieire Ane 

DATE_IN WITH MDATE 

NAME = WitH- DISB. OFFICER" 
AMT WITH TEMPD 

PURPOSE WITH ‘COMRATS DUE' 
Daler Dp wlio “Cr 


CLOSE ALL 


RETURN 


* END CRATS.PRG 


73 


KOK OK KK KOK OK KKK KK KK KK KK DK KOK KK KK KKK KOK KK OK KK KKK IK KKK IK OOK KR OK OK AK IK RK OK OK KOK OK 


* CPM=-Fs * 
CORO OK OROOKOOKGIOK OOK IOOOK OKO OOOO IK KOK IOI IO OOK KKK KK KOK OK OK OK 2K 


PROCEDURE CPM-FS 
CORO IO OIOK OOK OOO IOC OOK OK OKO IO KKK KK CK KOK KK OK KKK KOK 2K 


* NAME: CPM-FS.PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.1T.MADDEN * 
*X PURPOSE: COMPUTES THE COST PER MAN OF OPERATING THE MESS. * 


*OKOK KOK OKOK KOK OK OK KK KK KK 2K KK KOK OK KKK KOK KK KOK OK 2K IK IK KOK IK KKK IK OK OK IK IK IK IK OK A IK OK KE IR OK RR OK OK OK OK 


AT EESTING: 
STORE 00000.00 TO TENE 
STORE 000000000.00 TO TEMP2 
SELECT A 
USE SETCAT 
IF SUBSEIST (=e. 
SELECT 65 
USE SHARE 
TEMP? = NUMSMTSER 
SELECT € 
USE SUMMARY 
REPLACE OAVG WITH TEMP1 
REPLACE EAVG WITH O 
ELSE 
SELECTS 
USE SUMMARY 
TEMP1 = TTLUSUB 
ENDIF 
SELECT OD 
USE INV 
COST = PCONSUMED 7 TEMP1 
TEMP2 = PCONSUMED 
USE 
SELECT C 
USE SUMMARY 
REPLACE COSTMAN WITH COST 
REPLACE PCON WITH TEMP2 
CLOSE ALL 
RETURN 
ZEND CPM—-ES 


4 
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2K OK OK OK ROOK OOK OOK ROOK OK OK OOK OK OK OOK OK OK OK OK OK OK OK OOK ROOK KOK OOK OK KOK OK KOK OK OK OK OK OK OK OK ORK OR OR OOK ORO ORK OR OOK OK OOK OK OK ROR OK 


* DEL-MBR = 
KKK KK KK KK KKK KK RK OK KK OK MK OK KK KK OK KK KK KOK OK ORK MK ORK MK OK OK MK OK KOK OK OK OK KOKOMO OK OK OK OMKOK OK OK CK 


PROCEDURE DEL-MBR 
KOKOKOKOKOKOKOKOKOKKOKOKOKOKOKOKOK OKO CICCOLO OOK OOK KOK OOK KOK OK OK OK 


* NAME: DEL-=NSKR- PRG x 
* AUTHORS: LCDR J.L.TWIGG x 
x LT. M.T.MADDEN x 
* PURPOSE: DELETE A MEMBER FROM THE MESS AND PREPARE BILL. x 


3K OK OK OK OK OK OK OK OOK OK ROOK OK KOK OK KOR OOK OK OK OK KOKO OK KOK KOK ROOK OOK OK OOK OK OOK OK OOK OK OOK KOK OOK OK OK OK OK OK OK OK OK OK OK OK OOK OK OK KOK OK OK OK KK 


* LISTING: 

CLEAR 

Soerme,  ° TO TMESS 
SeoreE ' * TO REASON 
saokRE * * TO ANS 
STORE DATE() TO MDATE 
Seeone “© * TO CHOICE 


STORE SPACE (9) TO TSSN 
STORE SPACE (20) TO TNAME 
STORE 000.00 TO TSHAR 
Se2ORE 100.00 TO BCOST 
STORE 00.00 TO LCOST 
sooRE 00.00 TO DCOST 
STORE 00.00 TO HCOST 
srene OOO.00 TO TBILL 
STORE 00 TO TDAY 

STORE 00 TO TMON 

s7OnE 900 TO TDIFF 
STORE 0000.00 TO TSUB 
STORE 000.00 TO REBATE 
seems OOO.00 TO BITL 
STORE 000.00 TO LTTL 
s7Oke O0O700"TO DITL 
everne 000.00 TO HTTL 
STORE 000.00 TO MBILL 
STORE 000.00 TO TCASH 
SELECT D 

USE SETCAT 

fiigisos = MESS 


SELECT A 

USE INV. 

TSHAR = VAL_FWD 

CHOICE = ‘y' 

DO WHILE UPPER(CHOICE) = ‘Y' 
ANS = ‘'N' 
DO WHILE UPPER(CANS) <> ‘'Y' 

TSSN = ° : 


d 0,0 SAY [TR-015] 
d 8,6 TO 12,73 DOUBLE 
SET COLOR TO W+t+/R,, 


d 10,8 SAY [ ENTER THE SOCIAL SECURITY NBR. FOR DETACHING MEMBER: J] GET 
TSSN PICTURE [XXXXXXXXxX ] 
READ 


@ 12,24 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 

WAIT ' * TO ANS 

SET COLOR TO W+/B,, 
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CLEAR 
ENDDO 
CLEAR 
SELECT B 
USE MEMBERS 
LOCATE FOR SSN = TSSN 


IF FOUND() .ANDs DIOCCDETACHED = 7a 
IF TMESS = ‘5° 
REPLACE DETACHED WITH MDATE 
ELSE 


TNAME = NAME 
REPLACE SHAREOUT WITH TSHAR 
SELECT C 
USE TRANS 
APPEND BLANK 
REPLACE TTYP WITH ‘AP' 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH TSSN 
REPLACE AMT WITH TSHAR 
REPLACE PURPOSE WITH ‘MSS SHARE RF OWED' 
REPLACE DATE_PD WITH ‘CM’ 
SELECT D 
USE SETCAT 
IF METHOD = 'B* AND. SUBSIST <> *Y’ 
REASON = '‘'D' 
DO MBRLV 
DO REBATE 
ELSE 
IF METHOD = ‘'A* .OR. SUWUBSIST = *Y"* 
DO -DEPRBILL 
ENDIF 
ENDIF 
TCASH = 00.00 
SELECT C 
USE TRANS 
BOY WHILE .NOT EOE C) 
IF NAME = TSSN 


DO CASE 
CASE PURPOSE = ‘MSS BILL RF OWED‘ 
TCASH = TCASH - AMT 
CASE PURPOSE = ‘SPECIAL ASSES' .AND. TTYP = ‘'AR' 
TCASH = TCASH + AMT 
CASE PURPOSE = 'MESS BILL’ .AND. TTYP = ‘AR’ 
. TCASH = TCASH + AMT : 
CASE PURPOSE = ‘MESS SHARE’ .AND. TTYP = ‘AR‘ 
TCASH = TCASH + AMT 
ENDCASE 
ENDIF 
Sivie= 
ENDDO 
CLEAR 
- d 8,10 TO 12,68 DOUBLE 


SET COLOR TO Wt/R,, 
@ 10,25 SAY [ CHECK TO ENSURE PRINTER IS ON ! } 
SET COLOR TO Wt/B,, 
a 14,1 SAY [ ] 
WAIZ TO CONT 
CLEAR 
IF TCASH < 00.0 
SELECT B 


boas 


REPLACE Ab ILLaAOUTAWITIH ABS(TCASH} 
Set vevecs VOetnILNG 

DOS DETAMBR 

BUEer 

SELeDEVICE 10 SCREEN 


SELECT 85 

REPLACE BILL_OUT WITH TCASH 
SElLaweyeee TO PRINT 

DO ADET-MBR 

EJECT 

SEL UEVICE TO SCREEN 


BNVOLE 


BNDOILF 
EESE 


CLEAR 


a 8, 


Sel 


16 TO 12,59 DOUBLE 
COLOR TO Wt/R,, 


weno, 2emony | SOCTAL SECURITY NUMBER NOT FOUND!!! |] 


SET 


COLOR TO W+/B,, 


d 14,1 SAY [ ) 
WAIT TO CONT 
CLEAR 


ENDIF 


eeo,lo £0 12,65 DOUBLE 
SET COLOR TO Wt/Rk,, 


gev0,17 SAY {| DO YOU DESIRE TO DELETE ANOTHER MEMBER? 


sea COLOR FO B/B 


WAIT °' * TO 


CHOICE 


SET COLOR TO W+/B,, 


CLEAR 
ENDDO 
CLEAR 
CLOSE ALL 
RETURN 


* END DEL-MBR 
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CY/N) 


} 


TK OR OK ROKR ROOK RK OR ROOK KK ROK IK ROK RK KOK IK IK KOK KOKO IK IK KK KOK OK IK IK IK KOK KOK IK IK OK IK OK OK OK OK OK OK OK 


a DEPBILL x 
SK OK OOK OK OK OK OOK OK KOK OK OK OK OK OK OK OOK OK OK OK OK OK OK OK OK OOK OK OK OK OK 3K OK OK OOK OK OK OK OK 3K OOK OK OOK OOK OK OK OK OK OK BOOK 3K OK OOK OOK OK OOK OK OK OK 


PROCEDURE DEPBILL 
OKO OK KOKO OKO OIOK IKI IK OK KOKO KKK IK KOKO OK OK OK KKK KK KOK KK KK KK KK OK 


* NAME : DEPBILL.PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
a LT M.T.MADDEN * 
* PURPOSE: PRODUCE MESS BILL FOR DEPARTING MEMBER. * 


KOK OK OK OK OK OK KOK OK IK OK OKO KK OK OK KOK KKK KOK OK OK OK KK OK OK OK OK OK KOK OK KK OK KOK OK ROK OK KOK OK OK OK OK OK 2K IK OK OK 2K OK OK OK OK OK OK 


* LISTING: 
STORE 7600 00, 7G Si2LLe TIL 
CLEAR 

USE SETCAT 
BCOST = B_COST 
LCOST = L COST 
DCOST = S_ COST 
HCOST = H COST 
USE 

SELECGC A. 

USE MEALS 


SET FORMAT TO MEALS-FT 
APPEND BLANK 
REPLACE MNAME WITH TNAME 
ANS = 'N! 
DO WHILE UPPER(ANS) <> 'yY' 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
ad 17,19 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO BYB,, 


WAIT °' * TO ANS 
SET COLOR TO W+/B,, 
ENDDO 
CLEAR 
CLOSE FORMAT 
Skip) 
BITL = BCOST * BR_CT 
LTTL = LCOST * LU_CT 
DITL = DCOST * Dimes 
HTTL = HCOST * HO_CT 
MBEILL = BITL + UD tie tie en eee 


DELETE ALL 

PACK 

USE 

SELECT C 

USE TRANS 

APPEND BLANK 

REPLACE TIYP WITH ‘AR’ 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH TSSN 
REPLACE AMT WITH MBILL 
REPLACE PURPOSE WITH MESS BILL” 
REPLACE DATE_PD WITH ‘CM’ 
USE 

CLEAR 

RETURN 

* END DEPBILL.PRG 
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2K KOK OK KOK 2K KOK KOK OK KOK OK OK OK OK IKOIKCIKCIOK OK ICICI KOK OK IKK OK IKK CARCI IK KCK KARO IK AK ROKK ARIK AK ROK 


x DET Sib 3 
(OOK IOI IO OKOK KOKO IOK OK ICICIIOK KICK KK IK ICIOK KIKI ICI IIOK KKK KK IKK KICK OK 


PROCEDURE DET~MBR 
OOK OK ICO IOK ICO ICICI ICICI OK ICICI KICK IO ICI ICIOK ICICI IOK ICI K IK ACK KK 


x NAME : DEL-HSK x 
KX AUTHORS: LCDR J.L.TWIGG os 
x LT M.T.MADDEN * 
X PURPOSE: PRINTS DEPARTING MEMBERS MESS BILL. x 


KK KKK OKO IKI AKIKO COI ICI KIKI IK IKK IK IKK KOK IKK FKIK AKCK KK AK KK IK IK KK IKK OK IK KKK KOK OK ACK OK OK 


eeicEslING: 

fas 21 SAY " 2 
ad 3, 24 SAY "SUMMARY FOR A DETACHING MEMBER” 

ad 4, 21 SAY " x 
a 7, 21 SAY “NAME:”* 

®@ 7, 32 SAY MEMBERS~>NAME 

a 9, 21 SAY "RANK:"” 

a 9, 27 SAY MEMBERS->RANK 

@ 9, 43 SAY "SSN:* 

ad 9, 48 SAY MEMBERS-~->SSN 

emi 2) SAY *__. S 
feei2zs 21 SAY "MESS SHARE REFUND" 

felis) 21 SAY "QWED TO MEMBER:" 

ate, S| SAY MEMBERS~>SHAREOUT 

Woe 21 SAY “MESS BILL REFUND” 

fc, 21 SsAY “OWED TO MEMBER:" 

gone os! SAY MEMBERS->BILL_OUT 

Aeon 21 SAY ™ S 
* END DET~-MBR.PRG 
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YK OK OK OK OK OK OK OK OK OK OK OOK OK OK OK KOK OK OK OOK OK OK OOK OK OK KOK 2K OKOOK OK OK OOK ROK OK ROOK IR OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


x EON =RPT m 
OKO OK IOOK OK OKOK OOK OOK KOK OK OOK OK OOK OOK KOK OK OKOK KOKO OKOK KKK KOK KK KOK KKK KKK 


PROCEDURE EOM-RPT 
OKOKOKOKOKOKOKOKOKOKKOKOK OOK OKOKOKOKOKOKOKOKOKOKOK KOK OOK OK OOK OKOKOOK OKOOK KOKO KOK OKOKOK OOK KKK KK KKK KKK 


* NAME: EOM-RPT.PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN * 
* PURPOSE: DRIVER FOR PRINTING SMOOTH FINANCIAL STATEMENTS. x 


MK OK OK ROK OK OK KOK OK ROOK OOK OK OK ROOK OK OK OK OK OK OK OK OK OOK KOK OK KOK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK RK MK KK KKK KK KK 


* LISTING: 
CLEAR 
STORE SPACE (20) TO ANS 
STORE ' " TO REASON 
SELECT A 
USE SETCAT 
REPLACE TRIAL WITH 'N'! 
REPLACE EOM WITH ' : 
SET FORMAT TO EOM-IP.FMT 
DO WHILE UPPER(CANS) <> 'y' 
REPLACE EOM WITH ' : 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
@ 17,26 SAY [ IS THIS CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 
WAIT" * 10 ANS 
SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT 
SELECT A 
SKIP -1 
REASON = 'M! 
DO CASE 
CASE MESS = 'E' 
CLOSE ALL 
DO PRT-FS 
DO GEN-RPT 
DO MEAL-PR 
DO RESET 
CASE SUBSIST = 'Y' 
,CLOSE ALL 
nO PRT-FS 
DO GEN-RPT 
DO RESET 
DO MESS-PRT 
DO MEAL-PR 
CASE SUBSIST = 'N' .AND. METHOD = 'A' 
CLOSE ALL 
DO PRT-FS 
DO GEN-RPT 
DO RESET 
DO MEAL-PR 
DO MESS-PRT 


OTHERWISE 
CLOSE ALL 
DOS ek =Fs 


DO GEN-RKPT 
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HO RES 
DO MESS-PRT 
DO MEAL-PR 
ENDCASE 
EJECT 
CLOSE ALL 
CLEAR 
RETURN 
* END EOM-RPT.PRG 
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DK OK OOK OK OK OOK OK OK OK OOK OK OK OK OOK OOK ROKK OK KOK OK OR ORIK OOK ROKK IK IK KOK OK IK KKK IR KOK KOK OK OK KOK KK OOK KOK KOK OK OK OK OK 


x EXMEAL * 
2OKOK KOK OKOK KOKO OOK KKK KKK KKK KOKO KKK KKK KKK KOK OK KK KK KKK KOK KOK 


PROCEDURE EXMEAL 
[OKO KOKO KOKO KOKO KOK KKK OK OKOK KOKO OKO OKOK KKK KK KOK OK KOK OK 


* NAME : EXMEAL. PRG x 
* AUTHORS: LCDR J TWIGG * 
* LT M MADDEN x 
* PURPOSE: RECORD PAYMENT FOR MEALS PURCHASED FROM FSO. x 


2K OK OK OK KOK OK OK KOK OK OOK OOK KOK OK KOK OK OK OK OK OK OOK OK ROOK KOR OK OOK OK OK OK OK OK OK OK OR OK ROK OK KOKO OOK OK OK KOK OK OK OK OK OK OK OK OK OK OK KOK HK 


* LISTING: 

CLEAR 

STORE * * TO CHOICE 

STORE DATE() TO TDATE 

SELECT A 

USE TRANS 

CHOICE = 'N! 

DO WHILE (UPPER(CHOICE) <> "Y') .AND. (.NOT. EOF()) 
IF TIYP = “AP*...AND. PURPOSE = "FSO MEALS “OWED 

DO PAYRATS 


SET COLOR TO W+/R,, 
d 20,19 SAY [ IS THIS THE CORRECT TRANSACTION? (Y/N) ] 
SET COLOR TO B/B,, 
WAIT * * TO CHOICE 
SET COLOR TO W+/B,, 
CLEAR 
TPeUREERCCHOITEE) = "x * 
REPEACE. liye With +e. 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH ‘PD’ 
REPLACE PURPOSE WITH ‘FSO MEALS' 
ENDIF 
ENDIF 
Skin 
ENDDO 
IF EGFO)) ANG ee UPPERC CHOICE) <>57 x 
d 10,19 TO 14,61 DOUBLE 
SET COLOR TO W+/R,, 
d@ i2@,2emony [ END OF FILE HAS BEEN REACH oO. 
SET COLOR TO W+/B,, 
d 16,1 SAY [ ] - 
WAIT TO CONT 
END IS 
CLEAR 
CLOSE ALL 
RETURN 
*X END EXMEAL.PRG 
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2K KK OK OK ROKR OOK KOK OK OK IK ROOK OK KOK OK OR ORK OR OK KOK OK OK KOK OK OK OK IR KK KK KK OK OK KOK DK OK DK DK DK OK OK OK KOK OK OK OK OK OK 


us EXOTHER * 
ROKK OKO OKC CCK OK OKO OOK KOKO OK KOK KOK KKK KOK OK KOK 


PROCEDURE EXOTHER 
SOOOCOOOL OKOOK OKO OK KKK KKK KKK 


* NAME : EXOTHER. PRG - 
* AUTHORS: LCDR J.L.TWIGG x 
* LT M.T.MADDEN “ 
* PURPOSE: RECORD CASH EXPENDITURES FOR OTHER THAN PROVISIONS am 
* OR MEALS PURCHASED. m 


RK KR KK MRK RK KKK RM RK RK RK ROR OK ORK OK ROK OK OR OK OK KOK OK ROK OK ROOK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK KK KK 


& LISTING: 

CLEAR 

sueme * * TO CHOICE 

STORE DATE() TO TDATE 

SELECT A 

USE TRANS 

GHerceE = ‘'N‘ 

Ute CUPPERCCHOICE) <> "Y*) .AND. (.NOT. EOF()) 

IF (TTYP = *AP*) .AND. (CCPURPOSE <> "PROV FSO OWED‘) .AND.(CPURPOSE <> 'PROV 
VENDOR OWED') .AND. (PURPOSE <> 'MSS SHARE RF OWED') .AND. (PURPOSE <> 'MSS 
Beobb RF OWED") .AND. (PURPOSE <> ‘FSO MEALS OWED‘) 3 

DO PAYRATS 

SET COLOR TO W+/R,, 

d@ 20,19 SAY [ IS THIS THE CORRECT TRANSACTION? (Y/N) ] 
SET COLOR TO B/B,, 


Wait) * TO CHOICE 
SET COLOR TO W+/B,, 
CLEAR 


IF UPPER(CHOICE) = 'y! 
REPLACE TTYP WITH 'XP' 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH "PD! 
ENDIF 
ENDIF 
SKIP 1 
ENDDO 
IF EOF() .AND. UPPER(CHOICE) <> 'y'’ 
@ 10,9 TO 14,69 DOUBLE 
SET COLOR TO W+/R,, 
ad 12,24 SAY [ END OF FILE HAS BEEN REACHED!! ] 
SET COLOR TO W+¥/B,, 
@ 16,1 SAY [ ] 
WAIT TO CONT 
ENDIF 
CLEAR 
CLOSE ALL 
RETURN 
* END EXOTHER.PRG 
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YK KK OK OK KK OK KK OK KOK OOK OK OK OK KOK OK ROK OK OK OOK OK OK AK KOK OK OK OK OK KOK OK OK KOK OK OR OK OK OOK OK OK OK OK OK KOK OK OK KKM 


A EXPROVED * 
OKOOKOOKOKOKOK OOK OK OK OK OK IOK OK KOK KOK OKO KOK KOK OK KOK OK OK OK KIO KOK OK KK KKK KK KK KOK OK KKK KK 2K OK 


PROCEDURE EXPROVED 
OOKOKOOK KOKORO OOK KOK OOK KOKO OK OK OKO KOKO OK KOKO OK IKK OKI KKK KK KKK OK KK 2K OK KOK 


* NAME: EXPROVED.PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* ta M.T. MADDEN * 
* PURPOSE: RECORD PAYMENT FOR PROVISIONS PURCHASED FROM x 
* VENDORS. * 


2K KK OK OK OK OK OK OK OK OK OK OK OOK OK OOK OK OK OKO OK ROK OK RK OK IR OR OK OK OK ROK OK OK OK OR OR OR OK OK OR OK OK ROK OR OR OR OK OK OK OK OK OK OR OK OK OK OK OK OK OK OK 


* LISTING: 

CLEAR 

STORE * * TO CHOICE 

STORE DATE() TO TDATE 

SELECT A 

USE TRANS 

CHOICE = ‘N’ 

DO WHILE (CUPPER(C CHOICE) <> ‘Y¥") ANGE ( i. Fone) 
IF TTYP = 'AP' .AND. PURPOSE = ‘PROV VENDOR OWED' 

DO PAYRATS 


SET COLOR TO W+/R,, 
@ 20,19 SAY { IS THIS THE CORRECT TRANSACTION? (Y/N) ] 
SET COLOR TO B/B,, 
WAIT ° ' “ToPCcHOmGE 
SET COLOR TO W+/B,, 
CLEAR 
IF UPPER(CHOICE) = 'yY' 
REPLACE TTYP WITH 'XP' 
REPLACE DATE_IN WITH TDATE 
REPLACE PURPOSE WITH 'PROV VENDOR' 
ENDIF 
ENDIF 
SKIP 1 
ENDDO 
IF EOF() .AND. UPPER(CHOICE) <> 'y' 
3 10,19 TO 14,61 DOUBLE 
SET COLOR TO W+/R,, 
3 12,26 SAY { END OF FILE HAS BEEN REACHED!! } 
SET COLOR TO W+/B,, 
ao 6,1 SAY [ ] ; 
WAIT TO CONT 
ENDIF 
CLEAR 
CLOSE ALL 
RETURN 
* END EXPROVED.PRG 
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2K OK OK OK OK OK KOK OK OK OK KOK OK KOK KOK KK OK OK OK KOK OOK CK CARCROIK CAR KCK IK OK KK CARCRAR CARK AK ARR AR AR KK OK IR AR KOK OR OK OK 


* 


EXPROVFS * 


KOK OK OK OK KOK KOK KOK KOK OK KOK KK KK KKK KKK OK KKK KOK KK KKK KR KK AK KK KOK OK KOK OK OK ROK ARR OK OK OK OK 


PROCEDURE EXPROVFS 
OOOO OK OOK IOIOK OOK KOKO OOK ICICI OKC OK ICI ICI OKO IKK IK KKK OK OK 


* 


* 
* 
* 
* 


NAME : 
AUTHORS : 


PURPOSE: 


EXPROVES . PRG 

LCDR J.L.TWIGG 

Le fl... MADDEN 

RECORD PAYMENT FOR PURCHASE OF PROVISIONS FROM 
THE SUPEEY GEEILCER. 


% H KH HR 


YK OK OK KK OK KOK OK OK OK KK OK KK OK OK OK OK OK KK KK KOK OK KOK KKK OK KOKO OK OK IK OK OK OK IK OK IK IK OK OK KK OK OK ARK OK OK OK OK OK OK OK OK OK OK 


x LISTING: 

CLEAR 

Srore ° * TO CHOICE 

STORE DATE() TO TDATE 

SELECT A 

USE TRANS 

GHoece = ‘N* 

BeewnoiLe CUPPERCCHOICE) <> *Y*) .AND. (.NOT. EOF()) 
IF TTYP = ‘AP* .AND. PURPOSE = ‘PROV FSO OWED‘ 

DO PAYRATS 


SET COLOR TO W+/R,, 
a 20,19 SAY [ IS THIS THE CORRECT TRANSACTION? (Y/N) ] 
SET COLOR TO B/B,, 


weate ° YO CHOICE 
SET COLOR TO W+/B,, 
CLEAR 


DPPeeurPreER CCHOTCE) = *y* 


MeEFLACE TIYP WITH "XP'* 
REPLACE DATE_IN WITH TDATE 
REPLACE PURPOSE WITH ‘PROV FSO'° 


ENDIF 


ENDIF 


SKIP 1 
ENDDO 


IF EOF C) 


AND. UPPERCCHOICE) <> ‘yY' 


ad 10,19 TO 14,61 DOUBLE 

SET COLOR TO W+/R,, 

d 12,26 SAY [ END OF FILE HAS BEEN REACHED |} 
SET COLOR TO W+¥/B,, 

d 16,1 SAY [ ] 

WALT “FO CONT 

ENDIF 
CLEAR 
CLOSE ALL 
RETURN 

* END EXPROVFS.PRG 
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KK KOK KK OK KK OK OK OK OK OK OK OK OK KOK OK OK OOK OK KKK OK KOK KOK KOK OK KK KOK OK ROKK OO OK IK IK OK OK OK OKO OK OOK OK OKOK OK OK OK 


x EX'S * 
OOOO OOOO OOK OKO OOO IOI III III III III ICI III KKK 9K OK 


PROGEDURE EXP-ES 
SOKO OOOO OOOO OOK OOK IOI ICI OKI III III KK IKK OK KOI KKK OK 


* NAME: Exe FS Pino * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T - MADDEN * 
* PURPOSE: GENERATES TOTALS FOR THE EXPENDITURE SIDE OF THE * 
x FINANCIAL STATEMENT. * 


3K KK OK OK KK OK DK KOK OK KK KK OK KK 0K KOK OOK KK KK KK KOK OK IK OK IK KK KK OK OK OK KK IK OK OK OK IK IK OK IK OK OR OK IK OK KOKORO OK OK OK OK 


K LISTING: 
STORE 000000.00 TO TEMP1 
STORE 000000.00 TO TEMP2 
STORE 000000.00 TO TEMP3 
STORE 000000.00 TO TEMP4 
SLORE OODG00.00 TO [TEMPS 
STORE 000000.00 TO TEMP6 
STORE 000000.00 TO JZEMF7 
STORE GCOOCO0.00 TO TEMPS 
SELECGia. 
USE TRANS 
DO WHILE .NOT. EOF() 

IF @iyP = xe 


DO CASE 

CASE PURPOSE = 'MSS)SILiger. 
TEMP = TEMe! + Ae 

CASE PURPOSE = ‘MSS SHARE RF’ 
TEMP2 = TEMP2 + ANT 

CASE PURPOSE = ‘PROV FSO'° 
TEMPS = TEMPS + Are 

CASE PURPOSE = ‘PROV VENDOR’ 


TEMP4 = TEMP4 + AMT. 
CASE PURPOSE = ‘FSO MEALS‘ 
TEMPS = TEMPS + 7A 
OTHERWISE 
TEMPS” =" TEMES + ANT 
ENDCASE 
ENDIF 
SKE a 
ENDDO * ; 
TEMP6 = TEMP1 + TEMP2 + TEMP3 + TEMP4 + TEMPS + TEMP8 
Shiba 5 
Use ELNINC 
TEME7 = TOTAL_REC = TEMFGS 
REPLACE CASH_CF WITH TEMP7 
REPLACE TOTAL_EXP WITH TEMP6 
REPLACE TOTAL_LEXPD WITH TOTAL_REC 
REPLACE BILLSZRE Witmer 
REPLACE SHARE_RF WITH TEMP2 
REPLACE SUPZPROV WITH tEnrS 
REPLACE DEAL_PROV WITH TEMP4 
REPLACE SUP_MEAL WITH TEMPS 
REPLACE OTHER_B WITH TEMPS 
CLOSE ALL 
RETURN 
SEND EXP -FS no 
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KOK OK OK OK OK OK ROK ROK IK KK OK KK ROKK OOK OK KK ROOK OK OK OK OK 2K KK IK OK OIK OK IKK IK IK OKO IK IK IK OK IK OK IK OK IK OK OK ROK OK OK OK OK 


“s EXSHARE x 
2K OK OK OK OK OK OK OK OK IK OK OK OK OK IK OK 2K OK IK IK OK OK OK IK IK 2K OK OK IK KOK OK IK OK IK IK OK OK OK IK IR OK OK IK IK OK IK OK IK ARIK OK OK OK OK OK OK OK OK OK 


PROCEDURE EXSHARE 
KK KK KK KKK KK KKK KK KK KKK KKK KK KK KK KKK KK KK KK KK KKK KKK KKK KK KKK KK KK KK KOK OK OK 


* NAME: EXSHARE .PRG * 
* AUTHORS: LCDR J.L.TWIGG a 
* LT M.T.MADDEN a 
* PURPOSE: CLOSE OUT MEMBERS ACCOUNT UPON DETACHMENT. * 


KK OK OK OK OK OK OK OK OK OK KK OK OK OK KOK OK OK OK OK KK IK OK OK OK OK OK OK IK IK OK IK IK IK OK OK OK OK KK IK OK IKK OK 2K OK OK IK OK IKK IK IKK OK OK OK 2K OK OK OK 


* LISTING: 
CLEAR 

STORE DATE() TO TDATE 
STORE ' ' TO CHOICE 
STORE ' ' TO ANS 

STORE SPACE (9) TO TSSN 
ANS = ‘'N! 

CHOICE = 'N' 

SELECT A 


USE MEMBERS 

INSERT BLANK BEFORE 

SET FORMAT TO SHARBILL.FMT 

DO WHILE UPPER(ANS) <> 'y' 
EDIT RECORD 1 FIELDS SSN 
SKIP -1 

TSSN = SSN 

? 

? 

SET COLOR TO W+/R,, 

@d 9,22 SAY [ IS THIS THE CORRECT SSN? (Y/N) ]} 

SET COLOR TO B/B,, 


WAIT ' * TO ANS 
SET COLOR TO W+/B,, 
CLEAR ' 

ENDDO 

DELETE RECORD 1 

PACK 


CLOSE FORMAT 
DOM LE CUPPER(CCHOICE) <> *"Y') .AND. (.NOT. EOF()) 
IF SSN = TSSN 
‘DO SHBILL ’ 
SET COLOR TO W+/R,, 
ad 22,20 SAY { IS THIS THE CORRECT INDIVIDUAL? (Y/N) ]} 
SET COLOR TO B/B,, 
WATT; “ TO CHOICE 
SET COLOR TO W+/B,, 
CLEAR 
POUR PERCCHOICE) <> *y"* 
~ SKIP 1 
ENDIF 
ELSE 
SKIP 7 
ENDIF 
CLEAR 
= ENDDO 
m foeeer«) «AND. UPPERCCHOICE) <> ‘ty’ 
d 10,11 TO 14,68 DOUBLE 
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SET COLOR TO W+/R,, 

@ 12,22 SAY [{ INDIVIDUAL NOT FOUND TO BE A MEMBER!! 
SET COLOR TO W+/B,, 

ad 15,1 SAY [ ] 

WAIT TO CON 


CLEAR 
ELSE 
REPLACE DETACHED WITH TDATE 
SELECT as 
USE TRANS 
COPY TO TEMPBIL FOR (TTYP ="‘AP® "VOR, ffir ==) 
SELECT C 
USE TENPELE 
DO WHILE .NOT. EOFC) 
Le Tyee Ar: 
REPLACE TTYP WITH ‘XP’ 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH ‘PD’ 
IF PURPOSE = ‘MSS SHARE RF OWED' 
REPLACE PURPOSE WITH ‘MSS SHARE RF' 
ELSE 
REPLACE PURPOSE WITH ‘MSS BILL RF' 
END GE 
ELSE 
REPLACE TEYP, will, “CL 
REPLACE DATE_IN WITH TDATE 
IF DATE_PD ='CF' 
REPLACE PURPOSE WITH ‘MESS BILL PM’ 
ELSE 
REPLACE PURPOSE WITH ‘MESS BILL CM’ 
ENUiE i 
REPLACE DATE_PD WITH ‘'PD' 
ENDIF 
Sith P al 
ENDDO 
USE 
SELECT SE 
USE TRANS 
DELETE FOR (TTYP = ‘AP .OR. TIYYP = ‘AR*) .AND. NAME = TSSN 
PACK 
APPENDS PROM TENPEIL 
CLEAR 
CLOSE ALL 
ERASE TEMPER IL UBE ‘ 
ENDIF 
RETURN 


* END EXSHARE.PRG 
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] 


-AND. 


NAME 


TSSN 


OK KK OK IK OK OK KOK OK OK OK OK OK OK ROK OK OK OK OK OK OK OK OK OK OK OK ROK OK OK AR OK OK ROR ROK OR OK AR OR OR OK OK OK IR OK OK OK OR OK OK OK OK OK OKO 


x GEN-FS x 
KOK IK ICO OKO KOK OK KOKI OK OOK OK OK KOK OKO OIK KKK OK KKK KOK KKK KKK OK KK OK 


PROCEDURE GEN~-FS 
OOK OOK KOK KOKO OOK OK OOK OK IOIOK OOK KOKO KOK OK OKI KIKI OKO OKO KK KOKO KOK OK KKK KKK KOK 2K KOK KK 


* NAME: GEN-FSe@PRG ~ 
* AUTHORS: LCDR J.L.TWIGG “us 
x LT M.T.MADDEN * 
* PURPOSE: DRIVER PROGRAM TO GENERATE FINANCIAL STATEMENT ~ 
* INFORMATION. * 


MK OK OK OK ROR OOK OR OK OR OK OK OR OK ROOK OK ROR ROK ROOK OK OK ROOK OK OK ROK ROR OK ROK ROK ROK OR OK OK ROK AR ROOK OK OR OK OK OK OR OK OK OK OK OK OK OR OK OK OK OK 


*S LISTING: 
SET COLOR TO GR+/R,,N 
CLEAR 
a57,0 TO 16,68 DOUBLE 
@ 10,18 SAY [ FINANCIAL STATEMENTS ARE BEING COMPUTED ! ] 
ad 12,26 SAY [ PLEASE STANDBY TO PROVIDE |) 
@ 14,27 SAY { ADDITIONAL INFORMATION ! ] 
DG REC<-FS 
Desa. —-FS 
DO PROV~-CON 
SELECT A 
USE SETCAT 
IF SUBSIST = "N" 
DO CRATS~-FS 
ENDIF 
USE 
DO ASET-FS 
Do LeaSe=Fs 
DO MS-SHAR 
DO CREM-FS 
CLOSE ALL 
SET COLOR TO W+/B,,BG 
CLEAR 
RETURN 
* END GEN~-FS .PRG 
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OK KKK KKK IK IK IKK IK KOK IKOIK IK IKI IK IK IK IK IK IK IK OK IK AIK IKK IK ARIK OK IK OK IK IK IK IK IKK IK IK DIK IK IK IK IK IK KK OK OK 


m GEN-RPT x 
SOOO OK IOI IK OIOK OK OK OKO OK OK OOK OK OK OK KKK KI KIK KKK KKK KKK KK KK KOK 


PROCEDURE GEN-RPT 


OK KK OK OK A IKI IK KK IK IK AK A KKK IKK AIK OK IK IK IK OK IKK IK IK AIK IK IK IKK DIK OK IK IK IK IK KK IK IK IK IK IK IK IK OK OK IK IK KK IK IK OK OK DK OK OK 


K NAME: GEN-RPT.PRG 
KX AUTHORS: LCDR J.L.TWIGG 
x LT M.T.MADDEN 


*X PURPOSE: GENERATES REPORTS TO SUPPORT FINANCIAL STATEMENTS. 


* 
* 
* 
x 


KOR KK RK KK KKK KKK KK OK OK KOK KKK KK OK OK KKK OK OK IK IK IK KKK OK KOK AKIKO IK IKK IK IK IK IK IK OK OK IK KK OK IK IK IK IK OK OK 


xX LISTING: 

CLEAR 

?0 8,10 TO 16,68 DOUBLE 

@ 10,22 SAY [ MONTHLY FINANCIAL REPORTS ARE ] 
@ 12,30 SAY [ BEING PRINTED ! } 

@ 14,29 SAY [ PLEASE STANDBY !! ] 

SET CONSOLE OFF 

STORE 00 TO TCOUNT 

STORE SPACE (11) TO TSSN 


SELECT A 
USE SETCAT 
SELECT © 
USE RECCOL 
TCOUNT = 1 
DO WHILE TCOUNT < 7 
DO CASE 
CASE TCOUNT = 1 
APPEND FROM TRANS FOR TTYP = ‘AR’ .AND. (DATE_PD = ‘CM! 
rere) 
SELECT A 
REPLACE TITLE WITH * ACCOUNTS RECEIVABLE REPORT '° 
CASE TCOUNT = 2 : 
APPEND FROM TRANS FOR TTYP = ‘'AP* .AND. (DATE_PD = ‘CM’ 
'CF) ‘ 
SELECT A 
REPLACE TITLE WITH ° ACCOUNTS PAYABLE REPORT , 
CASE TCOUNT = 3 
APPEND FROM TRANS FOR TTYP = ‘CL' 
SELECT A 


REPLACE TITLE WITH ' RECORD OF COLLECTIONS REPORT ' 
CASE TCOUNT = 4 , 

APPEND FROM TRANS FOR TTYP = ‘XP’ 

SELECT A 

REPLACE TITLE WITH ‘RECORD OF EXPENDITURES REPORT ' 
CASE TCOUNT = 5 

SELECT A 

REPLACE TITLE WITH * MONTHLY TRANSACTIONS LISTING '° 

SET DEVICE TO PRINT 

DO TITLE 

SET DEVICE TO SCREEN 

SELECT -C¢ 

USE TRANS 

REPORT FORM REC-TRNS PLAIN TO PRINT 
CASE TCOUNT = 6 

SELECT D 

USE MEMBERS 

INDEX ON NAME TO MEMBERS 
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.OR. DATE_PD 


.OR. DATE_PD 


EGrY 10 -TEMESRORSSTALUS =.) \"" 


SELECT A 

REPLACE FiTLE WITH." RECORD OF MESS MEMBERS : 
SET DEVICE TO PRINT 

POST Ere 

SET DEVICE TO SCREEN 

Ue LEMP 

REPORT FORM MBR-RPT PLAIN TO PRINT 

USE 


ERASE TEMP .DBF 
ENDCASE 
PPeeGcOUNT < § 
SET DEVICE TO PRINT 
DO TITLE 
SET DEVICE TO SCREEN 
SELECT B 
USE RECCOL 
SELECT C 
USE MEMBERS 
JOIN WITH RECCOL TO TEMP FOR B->NAME = C->SSN FIELDS NAME, AMT, PURPOSE, 
DATE_IN, DATE_PD, SSN j 
SELECT E 
bse, TEMP 
DO WHILE .NOT. EOF(C) 
TSSN = SSN 
SELECT EB 
Usr RECECOE-.. 
DELETE FOR NAME = TSSN 
PACK 
SELECT E 
SKIP 1 
ENDDO 
USE 
SELECT B 
REroND FROM TEMP 
REPORT FORM REC-COL PLAIN TO PRINT 
DELETE ALL 
PACK 
ERASE TEMP .DBF 
ENDIF 
TCOUNT = TCOUNT + 1 
ENDDO 
SET CONSOLE ON 
CLOSE ALL > 
ERASE MEMBERS .NDX 
CLEAR 
RETURN 
* END GEN-RPT.PRG 
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YK KK OK KK OK OK OK OK KK KOK OOK KOK K KOK OK OK KOK IK KKK KOK KKK IK KKK OOK IK KK KOK KOK OK OK KK IK IK OK IK KK OK OK KOK 


HEADING ‘ 
OK OOK OKO OOO OKO OKI OKIOOK III II IO IK OK KKK KKK KKK KK KKK 


*K 


PROCEDURE HEADING 
OKO OOK ICIOKOOOK OOK ICO ICICI ICI ICICI IC ICICI IK OK IOI OK K KKK KKK OK OK 


* NAME: HEADING.PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN * 
X PURPOSE: OUTPUT HEADINGS FOR FINANCIAL STATEMENTS * 


KK KK KK KK KK KK KKK KKK KOK OK OK OK KOK KOK KK KK KKK KKK KKK KKK KK KK KK IK KK OK KOK OK KOK 


* 
a 
E 
d 
a) 
a 
a 
a 
a 
* 


LISTING: 
OF 2 SAY 
hm E Net” 
2, 9 SAY 
2, 13 SAY 
2, 44 SAY 
2, oe, SAY 
3, 52 SAY 
3, 58 SAY 
END HEADING 


"MON ol Hela. 


"uss" 
SETCAT->NAME 
"NAME OF MESS:" 
SETCAT->TMESS 

ATE: ” 
SETCAT->EOM 


- PRG 


Fl NAN Ce2. L OPERA T I Giec 


PICTURE "XXXXXXXXXXXXXXXXXKXXXKXKKX" 
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Ss T AM 





TK OK OR OK OR ORK OR ROK ROK ROK ROK ROK RK AK ROR ROK RK KK OK KOK KOKORO OK FAK ARK AKIKO IKK OK KKK KOK OK KOK OK OK KOK 


x ENC=FS x 
MK OK OK OK OK OR OK OK KOR ORK OR ROK OR OK OK ROK OK OR ORK ROK KOK KOK ROOK KK OK OK KOK OK OK OK OK OK KKK KK OK OK OK OK OK KOK OK OK OK OK OK 


PROCEDURE INC-FS 
OKC CKO KKK OKO KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK 


* NAME: ENC rS.PRG x 
* AUTHORS: LCDR J.L.TWIGG x 
x Er M.T -MADDEN x 
* PURPOSE: PRINT CASH ACCOUNT SIDE OF FINANCIAL STATEMENT. x 


MK OK OK KOK RK ROK ORK ROK KOK OK ROK OR OR ROR OKO KOK OK OK KOK OK OK OK OK OK OK OK KOK KOKO KK OK KOK OK OK OK OK OK OK KOK OK OK OK KOK OK OK OK OK 


* LISTING: 

eumo> 26 SAY "CASH v2 lag: ee i O75 8 ans Gala Oey 

geo; 26 SAY " ws 

ad 7, 15 SAY “RECEIPTS EXPENDITURES" 
Sams, 62l0|CUSAY 


10, 2 SAY "CASH BROUGHT FORWARD" 


10, 30 SAY FININC->CASH_BF 

10, 42 SAY "MESS BILLS REFUNDED" 

10, 68 SAY FININC->BILLS_RF 

ize 2 SAY "MESS BILLS MESS SHARES REFUNDED" 
12, 68 SAY FININC~>SHARE_RF 

73> 2 SAY “PREVIOUS MONTHS” 

i256) 50 SAY FININC=>BILLS_PM 

14, 42 SAY "PROVISIONS FROM" 

fo 2 SAY "MESS BILLS SURELY OFFICER” 
moe OG §—SAY FININC=->SUP_PROV 

16, 2 SAY "CURRENT MONTH" 

tone oO «SAY FININC=>BILLS_CM 

16, 45 SAY "DEALERS" 

16, 68 SAY FININC->DEAL_PROV 

iene 2 SAY "MESS BILLS NEXT MONTH" 

18, 30 SAY FININC=->BILLS_NM 

18, 42 SAY "MEALS FROM FSO" : 

18, 68 SAY FININC->SUP_MEAL 

20, 2 SAY "MESS SHARES SOLD" 

20, 30 SAY FININC->SHARE_SOLD 

Bure z2 SsAY "CTHER EXPENDITURES” 

Zope oo SAY FININC->OTHER_B 

22, 2 SAY "COMMUTED RATIONS TOTAL EXPENDITURES” 
@e2, 6! SAY FININC->TOTAL_EXP , 

Bega 2 SAY "COLLECTED 

23, 30 SAY FININC->CR_COLLECT 

24, 42 SAY "CASH ON HAND" 

Zo, 2 SAY "OTHER RECEIPTS” 

ao, 20 SAY FININC=>OTHER_A 

25, 42 SAY "END OF MONTH" 

25, 67 SAY FININC->CASH_CF 

26, 2 SAY * 


Q@ Qs @ a @ B B A B AB Qs A Ay Qs Bs B A A, Bs Qs B OB By B Qs Bs Qs Ay Qs @ B A 





or, 2 SAY "TOTAL" 

Zene2o SAY FININC->TOTAL_REC 
26, 42 SAY "TOTAL" 

28, 67 SAY FININC->TOTAL_EXPD 
Zo, 2 SAY 





* 328) @ @ Q@ 


END INC-FS 
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KOK OK KOK ROK OK ROR ROOK ARK OK KOK ORR IR RRR ORR OR ORR ROR ROOK OK OR ROR OR ROK OR ROR ORR ROR OR OR OOK OR OK OK OK OK 


* INTRO x 
L222 PDD PSDP DDD PSD DP PDD PD DD DPSS DDD PDD PDD DPD PDD DDD? DD DD DDD DD Do @ i 


PROCEDURE INTRO 
SOROKOROK OOK OOK KOKO OOK IORI OK KOO KKK KKK KKK KKK KKK KK KKK KKK KK OK OK 


* NAME: INTRO.PRG “ 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T .MADDEN * 
* PURPOSE: USED TO EVALUATE PASSWORD INPUT AND VERIFY. * 


PPP DDD PP PAP DDD DPD SDD PPPS DS SPP DDD DDS DP? DDD DDD DDD DDD DDD DDD DD? DD DD DD DD 5 


* LISTING : 
STORE SPACE (10) TO TCODE 
STORE " * TO »RASS 


STORE 0000000000 TO PCODE 
STORE 00 TO PCOUNT 

STORE 00 TO TCOUNT 

STORE “ * TO ANS 


STORE ' 20 CHOTEE 

STORE SPACE (10) TO TPASS 
TCOUNT = 0 

DO WHELE «T. 

CLEAR 

TPASS = ! : 


d 4,6 TO 8,73 DOUBLE 

d 6,18 SAY [ THE PASSWORD WILL NOT APPEAR WHEN TYPED !! ] 
d 10,6 TO 14,73 DOUBLE 

SET COLOR TO W+/B,R/R,N 


d 12,24 SAY [ ENTER YOUR PASSWORD: ] GET TPASS PICTURE [!f!!!ftttte) 
SET COLOR TO W+/B,GR+/R,N 

READ 

CLEAR 


PCOUNT = 0 
PCODE = 0000000000 
DO WHILE PCOUNT <> LENCTPASS } 
PCOUNT = PCOUNT + 1 
STORE SUBSTR(UPPER(TPASS),PCOUNT,1} TO PASS 
PCODE = PCODE + (ASCC(PASS}} 
ENDDO 
PCODE = (PCODE * 1000) ) 7+ eC rcovre 2c. 
STORE STRCPCODE,10) TO TCODE 
TPASS =‘TCODE : 
USE SETCAT 


IF (TPASS = PASSWORD) .OR. (TPASS = ' 670908" } 
SET COLOR TO W+/B,,BG 
CLOSE ALL 
RETURN 

ELSE 


TCOUNT = TCOUNT + 1 
IF TCOUNT, <= "4 
dad 10,21 TO 14,57 DOUBLE 
ad 12,28 SAY [ INVALID PASSWORD !!! ] 
@015,5 SAY [ ] 
WAIT TO CONT 
ELSE 
@ 5,10 TO 17,68 DOUBLE 
@ 8,22 SAY [ YOU HAVE NOT ENTERED A VALID PASSWORD ] 
ad 10,22 SAY [ IN THREE TRIES !!] 
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qeid,ce SAMI VOU ARE BEING REMOVED FROM THE SYSTEM 


@ 19,5 SAY [ 
WAIT TO CONT 


QUIT 
ENDIF 
ENDL F 
ENDDO 
CLEAR 


SET COLOR TO W+/B,,BG 
CLOSE ALL 

RETURN 

Sen INTRO.PRG 


} 
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= 


YK KK KK KOK OK KK KK DK KOK KOK OK OK DK KK IKK OK KOK KK OK KOK 2K KKK OK OK OK OK KOK IK KOK OKO OK OK OK OR OK OK OK OK OK OK KOK OK 


x JUMP x 
OKO OOK OOKOKOKOKOK KOK OKOKOK KOK OK IO IK OK KOK OK OK KKK IKK KKK KOKO KKK KK KK KOK 


PROCEDURE JUMP 
OKO OOK OOK KOKO OOK OK OKOK OKO IKK OOK OK OOK OOK IKK KKK KKK KK KK KKK KK KKK KOK OK OK 
* NAME : JUMP .PRG 
AUTHORS: LCDR J.L.TWIGG 

LT M.T.MADDEN 
PURPOSE: TO CONVERT FROM A MANUAL TO THE AUTOMATED SYSTEM. 


THIS IS THE MENUSDR EE. 
OOK OOK OOKOK KOK KOK OK IOI OKO KIKI OOK KK KKK K KKK KKK KKK IK KKK KKK 2K KKK OK 


% MH MH HM 


* 
* 
* 
* 


ATE TING: 
STORE “ * TO ANS 
CLEAR 
a 0,0 SAY [UT=075] 
ad 2,32 SAY [GETTING STARTED] 
@ 3,30 TO 3,50 DOUBLE 
dd 4,8 TO 4,71 DOUBLE 
TEX 
TO INITIALLY CHANGE OVER FROM THE MANUAL SYSTEM TO 


THIS AUTOMATED SYSTEM INFORMATION CURRENTLY REFLECTED 
IN THE RECORDS MUST BE TRANSFERED OVER. THIS SECTION 
WILL GUIDE YOU THRU "THOSE PROCEDURES. FOLLOW THE 
INSTRUCTIONS CAREFULLY TO ENSURE THAT ALL TRANSACTIONS 
ARE PROPERLY RECORDED. FOR QUESTIONS REFER TO THE 


USER MANUAL SECTION DESCRIBING THE START-UP PROCEDURES. 


TO CONTINUE PAST THE NEXT SCREEN ALL DATABASES EXCEPT 
THE ONE CONTAINING THE MEMBERS FELE WZLL BE ERASED: 


ENDTEXT 
@ 19,8 TO 19,71 DOUBLE 
guce,1 SAV J 
WAIT TO‘CONT , 
CLEAR 
3@ 8,10 TO 12,68 DOUBLE 
SET COLOR TO Wt/R,, 
ad 10,25 SAY [ DO YOU WISH TO CONTINUE? (Y/N) ] 
SET COLOR TO B/B,, 
Wait * * TO ANS 
SET COLOR TO W+/B,, 
CLEAR 
IF UPPER(ANS) = 'y' 
SELECT A 
USE TRANS 
DELETE ALL 
PACK 
CLOSE ALL 
DO JUMPO 
DO JUMP3 
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Bw P| 
DO JUMP2 
DO JUMPS 
ENDIF 
CLEAR 
GEEOSE ALL 
RETURN 
* END JUMP.PRG 


a7 


KK KKK OOK OK OOK OK OOK KK KOK KOK KOK KOK OK OOK OR OKO OKI ROKK ORR ROOK ROOK ROKK OOK OOK KORO ORR OK ORR OK ORK OR ORR OKO OK 


a. JUMPO * 
SKK OK KKK KOK OK OK OK OK OK OOK OK KOK KOK KOK OK OOK OOK OK OOK OK OK OOK OOK OK OK OOK OK OOK OK OOK OK OK OOK OK OOK OK OK OOK OK KOK OK OK OK OOK OOK OOK OK KOK OK OK OK 


PROCEDURE JUMPO 
SOOROKOKOKOK OKO KOKO KKK OK KOKO KOKO OKKOK KKK KKK KK KKK KKK KKK KK KKK KK KK KK KK KK 


* NAME: JUMPO.PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN * 
* PURPOSE: LOAD CARRY FORWARD INFORMATION DURING CONVERSION. ™ 


YK KOK OK OK OK OK OK KOK KK OK KOK OK OK OOK OK OK OK OK OK OOK OOK OOK OK OK OK OOK OK ROR OK OK OK OR OK OR ROKR OK ROR OOR OK ORO OR OK OK OK OK OK OR OK OK OK OK OK OK 


*X LISTING: 

CLEAR 

STORE ' ' TO ANS 

STORE ' ' TO CHOICE 

SELECT A 

USE INV 

DELETE ALL 

PACK 

APPEND BLANK 

SET FORMAT TO JUMPO-IP.FMT 

DO WHILE UPPER(ANS) <> 'y' 
EDIT 
SET COLOR TO W+t/R,, 
@ 20,22 SAY { IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/ZB,, 
WAIT ° * TO ANS 
SET COLOR TO W+/B,, 

ENDDO 

CLOSE FORMAT 

CLOSE ALLE 

CLEAR 

RETURN 

* END JUMPO.PRG 
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2K OK 2K KOK 2K OK KK OK OK 2K OK KOK OK OK OK KOK KOKO KOK KK KOK KK OK KOK KK AK AK IK AK KO AKO KK AK IK AK KKK ROOK AK OK OK OK OK 


* JUMP 1 * 
2K OK OK OK OK OK OK 2K OK KOK OK OK OK KOK OK OK 2K OK OK OK OK OK OK OK OK OOK IK OK OK OK OK OK KOK OK KOK KK OK ROOK OK KKK IK ROK IK IK KOK OKO OOK OK 


PROCEDURE JUMP1 
OOOO OKO COOK OOK OK OKOK COOK ICKL KICKOOK IK OKIOKIOK OK ICIOI OK COK OK OK 


* NAME : JUMP 1 .PRG - 
* AUTHORS: LCDR J.L.TWIGG - 
- LT M.T.MADDEN * 
* PURPOSE: LOAD ACCOUNTS RECEIVABLE DURING SYSTEM CONVERSION. = 


KK OK OK OKO OK OK OK KK KK IK OK IK IK KOK KOK OK IK OK OK OK OK OK OK OK KOK KK IKK IK AK IK IK IK IK IKK OK IK IK IK IK IKK IKK AK KK IK IK IK IK AK OK OK OK OK 


*& LISTING: 

coer, © ' TO PICK 
soem: ° * TO ANS 
sore ' ° TO CHOICE 
CLEAR 


a 0,0 SAY [UT-016] 
a 10,9 TO 16,69 DOUBLE 
SET COLOR TO W+/R,, 
@ 12,25 SAY [ DO YOU HAVE ANY OUTSTANDING } 
@ 14,21 SAY [ ACCOUNTS RECEIVABLE TO ENTER? (Y/N) ] 
SET COLOR TO B/B,, 
ep ig,) SAY [{ J 
WAIT * * TO ANS 
SET COLOR TO W+/B,, 
USE TRANS 
DO WHILE UPPERCANS) = 'Y' 
APPEND BLANK 
Eek -— ‘N'* 
WG wire, UPPERCPICK) <> ‘Y' 
Breck = *y* 
CHOICE = ‘'N'* 
Sar FORMAT TO JUMPI-IP.FMT 
BO WHELE UPPERCCHOICE) <> ‘yY'. 
EDIT 
SET COLOR TO W+/R,, 
gezo,cO SAY { IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 
Watt © ‘ TO CHOICE 
SET COLOR TO Wt/B,, 
ENDDO 
CLOSE FORMAT ; 
215610) ae | 
REPLACE TTYP WITH ‘AR‘ 
DO CASE 
CASE PURPOSE = ‘A’ 
REEEAGe FURPOSE WITH "MESS BILL’ 
CASE PURPOSE = ‘B' 
REPLACE PURPOSE WITH ‘MESS SHARE’ 
CASE PURPOSE = ‘C'° 
REPLACE PURPOSE WITH ‘COMRATS DUE' 
CASE PURPOSE = '‘'D' 
ANS = 'N' 
Sotererial TO JUMPIT=<A.FMT 
DO SwHIDE UPPERVTANS) <> ‘Y' 
REPLACE PURPOSE WITH ‘ ° 
EDIT 
SET COLOR TO W+t/R,, 
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d 12,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ) 
SET COLOR SDOmEe oo 
WAIT ‘ ' TeransS 
SET COLORMTO.W+t/8., 
ENDDO 
CLOSE FORMAT 
SKIP -1 
OTHERWISE 
CLEAR 
ad 8,18 TO 17,60 DOUBLE 
d 11,21 SAY [| YOUR CHOICE IS NOT A VALID SELECTION ] 
@ 14,23 SAY [ PLEASE SELECT A, B, C, OR D !] 
o 1emeoay [ ] 
WATL. TO -COnz 
CLEAR 
PICK = 'N' 
ENDCASE 
ENDDO 
IF MONTH(TATT_IN) < MONTH(DATE()) 
REPLACE DATE_PD WITH 'CF'! 
ELSE 
REPLACE DATE_PD WITH 'CM' 
ENDIF 
CLEAR 
d@ 10,8 TO 14,71 DOUBLE 
SET COLOR TO W+tv/R,, 
@ 12,12 SAY [ BO YOU NEED TO ENTER ANOTHER ACCOUNT RECEIVABLE? (Y/N) 
SET COLOR TO BYB,, 
WAIT ">! =TOMANS 
SET COLOR TO W+t/B,, 
CLEAR 
ENDDO 
CLOSE ALL 
RETURN 
* END JUMP1.PRG 


100 


} 


ROOK ROAR ROK OK OK ROK AR ROOK ROOK ROR ROKK ROKR OR ORR ORR ROARK OOK ROOK OK AR ROOK ROR OK OOK OK ROK OK ROK KK OAK OK KOK OK KOK 


x JUMP2 as 
TRO ROR ROR ROK ORR OR RR OR OR IR ROR OR IRR ROR OR ORR ROOK RRR IK ROK OK KK ROOK OK ROOK OK ROOK OR ORK OK OK OK OK OK OK OK OK OK OK OK OK 


PROCEDURE JUMP2 
OKI OKO OKOOKOK OKO KOK OK OK OKOKKOKOK KOK KOKO OK 


* NAME : JUMP2.PRG x 
* AUTHORS: LCDR J.L.TWIGG x 
* LT M.T.MADDEN x 
* PURPOSE: INPUT ACCOUNTS PAYABLE DURING CONVERSION. x 


WK OK KOR ORK KOKO ROK ROR OR ORK ORK ROR ROR OR OR OK OR ORK OR ORO OK OK KOK OOK KOK IK IK KK OK KOK OK OK OK IK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


K LISTING: 

mare, ‘' ' TO PICK 
soem ' *' TO ANS 
cuore * * TO CHOICE 
CLEAR 


moro SAY [UT-17} 

@ 10,9 TO 16,69 DOUBLE 

SET COLOR TO W+/R,, 

@ 12,25 SAY [ DO YOU HAVE ANY OUTSTANDING } 

@ 14,23 SAY [ ACCOUNTS PAYABLE TO ENTER? (Y/N) ] 
SET COLOR TO BZB,, 

a@ 17,1 SAY [ !} 


WAIT ° * TO ANS 

SET COLOR TO W+/B,, 

USE TRANS 

DO WHILE UPPERCANS) = ‘Y' 
CHOICE = ‘'N' 
APPEND BLANK 
PICK = '‘'N' 
me WHILE UPPERCPICK) <> ‘yY' 
Peek = *yY* 


SET FORMAT TO JUMP2-IP.FMT 
DO WHILE UPPER(CHOICE) <> 'yY'. 
EDIT 
SET COLOR TO W+/R,, 
@ 23,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO BvB,, 
WAIT ' ' TO CHOICE 
SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT : 
SKIP -1 
CHOICE = 'N' 
REPLACE TTYP WITH 'AP' 
DO CASE 
CASE PURPOSE = '‘'A' 
REPLACE PURPOSE WITH 'PROV FSO OWED' 
CASE PURPOSE = 'B! 
REPLACE PURPOSE WITH 'PROV VENDOR OWED' 
CASE PURPOSE = 'C! 
REPLACE PURPOSE WITH 'MSS BILL RF OWED' 
CASE PURPOSE = 'p’ 
REPLACE PURPOSE WITH 'MSS SHARE RF OWED' 
CASE PURPOSE = 'E' 
REPLACE PURPOSE WITH 'FSO MEALS OWED' 
CASE PURPOSE = 'F' 
DO WHILE UPPER(CHOICE) <> 'y' 
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REPLACE “PURPOSE Wii so. 
SEL ar ORMAG TO BPAY =1 Bb. Fi 
1230 7 ge 
SET COLOR TO W+/R,, 
3d 11,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) |] 
SEaeeelOR TO 378,., 
WALT. ° (TO. CHOTGE 
SET COLORT IO Wr7ec, > 
CLOSE FORMAT 
Seip -1 
ENDDO 
OTHERWISE 
CLEAR 
@¢ 8,18 TO 17,60 DOUBLE 
@ 11,21 SAY [{ YOUR CHOICE IS NOT A VALID SELECTION! ] 
a 14,22 SAY [{ PLEASE SELECT A, B, €, 0D, GR@em 
@ 18,1 SAY { ] 
WAIT TO CONT 
CLEAR 
PICK = ‘N° 
ENDCASE 
ENDDO 
IF (MONTHC(DATE_IN) < MONTHCDATE())) .OR. CYEARCDATE_IN) < 
YEAR(DATE())) 
REPLACE DATE_PD WITH ‘CF’ 
ELSE 
.REPLACE DATE_PD WITH ‘CM’ 
ENDIF 
CLEAR 
@ 10,10 TO 14,68 DOUBLE 
SET COLOR TO W+t/k,, 
d 12,13 SAY { DO YOU NEED TO ENTER ANOTHER ACCOUNT PAYABLE? (Y/N) |] 
SET COLOR TO BYB,, 
WAIT * ‘ TO ANS 
SET COLOR TO Wt/B,, 
CLEAR 
ENDDO 
CLOSE ALL 
RETURN 
* END JUMP2.PRG 
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KOK AK OK ARK ROOK KOK AK OR KOK AK KK KKK OK KOK KKK KCK KOK KOK OK OIK OK IK IK KOK AK KK IK OK IK OK OK IK OK IK IK OK KOK OK OK OK OK OK 


* JUMP3 m 
2K OOK OK OOK OK OOK OOK OOK OK OOK OK OOK OK OK OOK OK OK OK OK OK OK OK OK OOK OK OOK OK OOK OOK OK OK OK OOK OK OOK OOK OK OK OOK OOK OOK OK OK OK OK KOK OK OK OK KOK KOK KOK KOK KOK 


PROCEDURE JUMP3 
KICK IOK IKK KOKO IKK CIO KKK KKK KOKO KKK KK KOK KK KKK KKK KK KKK KK KK 


* NAME: JUMP3.PRG x 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN = 
* PURPOSE: LOAD SETUP INFORMATION DURING SYSTEM CONVERSION. x 


KK KOK OK OR OR ROK OK OK OK OK KKK OK OR OR OK OK KK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KK 2K KOK OK OK KK OK OK OK OK OK OK OK 


* LISTINGS: 
STORE ' ' TO ANS 
CLEAR 
SELECT A 
USE SETCAT 
SET FORMAT TO JUMP3-IP.FMT 
DO WHILE UPPERC(ANS) <> 'y'! 
EDIT 
SET COLOR TO W+/R,, 
@ 16,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) J 
SET COLOR TO B/B,, 
WAIT ' ' TO ANS 
SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT 
CLOSE ALL 
CLEAR 
RETURN 
* END JUMP3.PRG 
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WOK OK KK OK DK OK OK IK IK OK IK OK OK OR OK IK IK IK KOK IK IK KK OK KIRK IK IK IK IK OK IK IK IK 2K IK OK DIK OK OK IK DIK IK OK OK OK OK OK OK OK OK OK OK 


* JUMPS os 
KOK KOK OOK OK OOK OOK OK OOK OOK OOK OOFK OOK OORKOK OOK OOK OOK FBR OOK OOK OOK OK OOK KOK OK KOK OK KOKO OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK KK KK 


PROCEDURE JUMPS 
KOKOKOKOOKOKOOKOK OOK OKOK KOK KOK KOK IOK OKO CICK KIKI KKK KKK KOK KK KK KK KOK OK OK 


* NAME : JUMES- PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN * 
* PURPOSE: INPUT MEMBERS DURING SYSTEM CONVERS Te? * 


TK OK OOK OK ROOK OK OOK OK OK OR OOK OK ORO ROK OR OK OR OR OOK OR OR OOK OOK KOR OK OR OK OOK OR OK OK OK OK RK OK OK KK RK OK OK KK OK OK OK KKK OK KK KKK KK KK 


* LISTING: 
CLEAR 
d@ 0,0 SAY [UT-018] 
STORE * * TO GCHOMEE 
STORE ' ' TO ANS 
ad 10,9 TO 16,69 DOUBLE 
SET COLOR TO W+/R,, 
ad 12,16 SAY [ DO YOU WISH TO ENTER THE MEMBERS OF THE MESS! (Y/N) ] 
@ 14,14 SAY [ INCLUDE ENLISTED PERSONNEL ASSIGNED TO THE MESS! ] 
SET COLOR TO B/B,, 
a17;, tesAyY a | 
WAIT ' ' TO ANS 
SET COLOR TO W+t/B,, 
USE MEMBERS 
IF UPPER(ANS) = 'y' 
DELETE ALL 
PACK 
ENDIF 
DO WHILE UPPER(ANS) = ‘'Y' 
CHOICE = ‘'N’ 
APPEND BLANK 
SET FORMAT TO MBR-SCREEN.FMT 
DO WHILE UPPER(CHOICE) <> 'y’., 
EDIT 
SET COLOR TO W+/R,, 
a@ 20,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 


WAIT * ~“* TO CHOICE 

SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT ; 
SREP s=4 


CHOICE. =<” 

DO WHILE UPPER(CHOICE) <-) y- 
SET FORMAT TO DOUNPS=1F rie 
EDIT 
SET COLOR TO W+/R,, 

@ 12,24 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO 5B75,, 

WAIT * * TO CHOICE 

SET COLOR TO W+/B,, 

CLOSE FORMAT 

SKiP T= 1 

ENDDO 

CLEAR 

a0 10,10 TO 14,68 DOUBLE 

SET COLOR TO W+/R,, 
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d 12,18 SAY [DO YOU HAVE ANOTHER MEMBER TO ADDifee6Y¥/ND) <=] 


Si COLOR TO B7B,, 
@ 17,1 SAY [ ] 
WAIT * ' TO ANS 
SET COLOR TO W+ /B,, 
CLEAR 

ENDDO 

CLOSE ALL 

RETURN 

* END JUMPS.PRG 
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YK KKK KKK KKK KOK OOK OOK OOK OKO OKC OK OKOKER OK CK RK RK OOOO AK OK 


x 


KKK KKK KOK KKK KOKO KOKO KK KKK OK KK KOK KOK OK KKK OR OK KOK OK OK OK OK 


PROCEDURE LIAB-~-FS 
BOK ICC OKO OKO OOK OKO IO OKO ICO III III OK IK II COK 


* NAME : 
AUTHORS: 


* 
* 
* PURPOSE: 
* 


LIAB-FS.PRG 
LCDR J.L.TWIGG 
LT M.T.MADDEN 
GENERATES LIABILITIES TOTALS FOR THE FINANCIAL 
STATEMENT. 


HH HM NM RK 


KK KOK KOK KKK KKK KKK KOK KKK KKK IKK KKK KK OK OE KO OK OK KK OK OK OK OK OK OK OK 


A LES l ENG : 
DATE() TO MDATE 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


" * TO ANS 
000000.00 
000000.00 
000000.00 
000000.00 
000000.00 
000000.00 
000000.00 
000000.00 
000000.00 
000000.00 


SELECT A 
USE TRANS 
DO WHILE .NOT. EOF() 

Get y P= AP 


DO CASE 


TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 


TEMP1 
Gene 2 
TEMPS 
TEMP4 
mero 
TEMPS 
Deir 7 
Tees 
TEMP9 


TEMP10 


CASE PURPOSE 
TEMP i= 
CASE PURPOSE 
TEMRZ = 
CASE PURPOSE 
TEMPS ~= 
CASE PURPOSE 
TEMPY = 
CASE PURPOSE 


TEMPS = 


OTHERWISE 


ENDCASE 


ENDIF 
SK ERe 


ENDDO 


SELECT C 
USE SETCAT 
IF UPPER(SUBSIST) 
DO WHILE UPPER(ANS) <> 
SET COLOR TO 
CLEAR 
0,0 SAY [EM-009 ] 


qd 


qd 
a 
a 
qd 
qd 


4,6 TO 13,73 DOUBLE 
ENTER AMOUNT OWED TO THE FOOD SERVICE OFFICER 


6, 16esAY 
7,28 SAY [ 
9,20 SAY [ 


TEMPS = 


ty? 


Wt+/B,, 


TEMPS Seale 


(FOR MEALS PURCHASED) 


THIS FIGURE IS PROVIDED BY THE FSU: 


11,532 GET TEMPO 
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‘MSS BILL RF OWED‘ 


"MSS SHARE RF OWED* 
REP 2 +PANT 

"PROV FSO OWED' 
REMPS + Aline 

‘PROV VENDOR OWED‘ 
TEMP4 + AMT 

‘FSO MEALS OWED‘ 
TEMPS “tT Alie. 


] 


J 


] 


READ 
SET COLOR TO 
ad 16,22 SAY al 


W+/R,, 


IS THE ABOVE INPUT CORRECT? (Y/N 


SEl COLORSTO ES; 


WAIT * ° TO ANS 

SE. COLOR DO W+/b,., 

CLEAR 

ENDDO 

ENDIF 
SELECT A 
USE TRANS 
APPEND BLANK 
MeroAcCeE ITYP WITH ‘AP’ 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH ‘SUPPLY OFFICER’ 
REPLACE PURPOSE WITH ‘FSO MEALS OWED' 


REPLACE 
REPLACE 
Pero = 
TEMP6 = 


SEuecl B&B 


AMT WITH TEMP10 

DAIE_PD WITH *CM" 

TEMPS + TEMPO 

Pirie + LEMP S + TEMP4 + TEMPS + TEMP9 


USE FINBAL 


TEMP7 = 
TEMP8 = 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 


TTL_ASS - TEMP6 
TEMP7 + TEMP6 

BILLS _OWD WITH TEMP1 
SHARE _OWD WITH TEMP2 
PROV_FSO WITH TEMP3 
PROV_VEND WITH TEMP4 
MEAL_PURC WITH TEMP9 
OTHER_B WITH TEMPS 
TTL_LIAB WITH TEMP6 
NET_WORTH WITH TEMP7 
NW_LIAB WITH TEMP8 


CLOSE ALL 


RETURN 


*END LIAB-FS.PRG 


ey 


KOK OK KKK OK OK KOK OK OR OOKK OK KK KKK KK OOROK IK KKK KKK KK KK KKK KOR RRR KOK ROK ROOK ROK OK OK OK OR OK 


* MBRLV x 
OR KOROK OKO CICIOK OOK OK IOR KOKO KKK IKK OOK OK OKO KOKO AOKI OK KIKI KKK KOK 


PROCEDURE MBRLV 
OKC KOKO IOKOK OK GOK KOK OOK KOKORO OK ICI OIOK III IKK IIOK AIK KKK KK OK 


x NAME: MBRLV. PRG x 
* AUTHORS: LCDR TWIGG x 
* LT MADDEN x 
*X PURPOSE: TO ACCOUNT FOR LEAVE TAKEN BY MEMBERS OF THE MESS. a 


KK OK KK KK KK KOK KK KK KOK OK OOK OK KOK OK OK KOK KK KOK KR RRR ROK RK KKK KOR KOR KK KOK KOK OK KOR KOR OK OK OK OK KOK OK 


K LISTING: 

CLEAR 

STORE sDATE() TO TDATE 

STORE ' ' TO ANS 

SEORE®" * TO) CHOICE 

STORE SPACE (20) TO TNAME 

STORE 00 TO TDAY 

STORE 00 TO TMON 

STORE 0000.00 TO TEMPA 

SHORE 0C0O.00 TO TEMPS 

SieneE "= ) 910 ISTHERE 

CHerCE = ‘y" 

ad 0,0 SAY [EM-010 ] 

a 6,7 TO 10,71 DOUBLE 

SET COLOR TO W+/R,, 

IF REASON = '‘M' ‘ 
@ 8,11 SAY [ HAS A MEMBER GONE ON LEAVE OR TAD THIS MONTH ? (Y/N) ] 
STORE SPACE (9) TO TSSN 

ELSE 
ad 8,9 SAY [ HAS DEPARTING MEMBER BEEN ON LEAVE OR TAD THIS MONTH? (Y/N) ] 

ENDIF 

SET COLOR TO B/B,, 

a 11,1 SAY [ ] 


WAIT ' ' TO CHOICE 
SET COLOR TO W+/B,, 
DO WHILE UPPERCCHGICE) = "yy" 
CHOICES =" *N- 
IF REASON = ‘'M' 
SELECT B 
USE MEMBERS 
ANS = 'N' , 
TSSN@ a= ee = — : 
ISTHERE = ‘*N* 


DO WHILE UPPER(CANS) <> 'Y' 
a 14,9 TO 18,69 DOUBLE 
SET COLOR TO W+t/Rk,, 


@ 16, 11 SAY [ENTER THE SOCIAL SECURITY NUMBER FOR MEMBER: ] GET TSSN 
PICTURE [XXXXXXXXX ] 
READ 


@ 18,21 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) |] 
SET COLOR 10 E72 ,, 


WAIT ' ' TO ANS 
SET COLOR TO W+/B,, 
CLEAR 
ENDDO 
ELSE 
SELECT B 
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ENDIF 


LOCATE FOR SSN = TSSN 


PP eE OUND ) 
PSTHEREG= YY" 
TNAME = NAME 
SELECT F 


USE DYSWKD 

APPEND BLANK 

ANS = 'N' 

DO WHILE UPPER(CANS) <> ‘'Y' 
SElerenMAr TO LV<=IP.FMI 
REPLACE DNAME WITH TNAME 
EDGT RECORD} 

CLOSE FORMAT 
SET COLOR TO Wt/Rk,, 


d@ 16,22 SAY { IS THE ABOVE INPUT CORRECT? (Y/N) 


SET COLOR TO B/B,, 


WAIT * ' TO ANS 
SET COLOR TO W+t/B,, 
ENDDO 
CLEAR 
Slicer = 


TDAY = WORKD 
TMON = MONDYS 
DELETE ALL 
PACK 

USE 


SELECT D 
USE SETCAT 
TBILL = SUG_BILL 


TEMPA = TDAY * TBILL 
TEMPB = TEMPA 7 TMON 
SELECT C 
USE TRANS 


APPEND BLANK 

REPLACE DATE_IN WITH TDATE 

REPLACE TTYP WITH "AP' 

REPLACE NAME WITH TSSN 

REPLACE AMT WITH TEMPB 

REPLACE PURPOSE WITH ‘MSS BILL RF OWED' 
REPEACE DATE_PD WITH ‘CM’ 

Sereer 8 , 


ENDIF 


te SOF ( ) 


.AND. ISTHERE = 'N‘ .AND. REASON = ‘M'! 


d 8,9 TO 12,69 DOUBLE 

SET COLOR TO W+/Rk,, 

@ 10,20 SAY { SOCIAL SECURITY NUMBER NOT IN DATABASE 
SET COLOR TO W+/B,, 


d 14,1 SAY [ ] 
WAIT TO CONT 
CLEAR 
ENDIF 
CLEAR 
IF REASON = '‘'M' 


d 8,6 TO 12,72 DOUBLE 
SET COLOR TO Wt/k,, 


d 10,9 SAY [{ 


SET CGLOR TO 5B/B,, 
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DO YOU DESIRE TO RECORD LEAVE FOR ANOTHER MEMBER? 


CY7N) 


J 


WAIT * *“TO°CHGECE 
SET COLORSTORW+78em 
CLOSE ALL 

ENDIEE 

CLEAR 

ENDDO 

CLEAR 

RETURN 

* END MBRLV.PRG 
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KOR OK OK OR OR OK RK OK OOK OOK OR ROOK KOK KOKORO OR ROKK ROK IKK KOK OK KOK AK IK KOK OK OK KOKO KOK KOKORO OK OK OK OK OK OK 


= MEALS~IP x 
TCC OKI OK OOK CICK OKO OKO KK KK KKK 9K KKK OK KK OK 


PROCEDURE MEALS-IP 
OOK IOKOKOK KOK OKIIOKOKIOKOKOK KOKO OKIOK OKO OK KOK OK KKK OK KKK KKK KOK OK 


* NAME: MEALS-IP.PRG * 
* AUTHORS: LCDR J.L.TWIGG ~ 
* LT M.T.MADDEN * 
"Sr nnwon: INPUT SCREEN FOR NUMBER OF MEALS EATEN. x 


RK ROK OR OR OK OR OR OK RR ROOK OR OR ROR OK ORO OR OR RIK RIK OR IK OK OK OR IR IK IK IK IK KOK OK KOKO KOK IR IK OK IR IK IK IK IR IK IK IK OK OK OK IK OK OK OK OK OK 


*SLISTING: 

feo O SAY "TR-011" 

om 2, 17 SAY “MEMBERS NAME:" 

ees eer eno NAME PICTURE “Wririrritrrrrrerrertriime 
@ 6, 18 SAY “THE NUMBER OF BREAKFAST MEALS:" 
Saeor 5! SAY MEALS->BR_CT 

Geos 1S SAY "THE NUMBER OF LUNCH MEALS:"* 
mos 5! SAY MEALS=->LU_CT 

3g} 12, 18 SAY "THE NUMBER OF DINNER MEALS:" 
apes 51 SAY MEALS->DI_CT 

qa 15, 18 SAY "THE NUMBER OF HOLIDAY MEALS:" 

®@2 15, 51 SAY MEALS->HO_CT 

@ 18, 18 SAY "TOTAL BILL DUE:" 


SET COLOR TO W+t/R,, 

d 18, 40 SAY BILL_TTL 

sm. COLOR TO W+/B,, 

que is TO 3, 59 DOUBLE 
a %&, 13 TO 21, 59 DOUBLE 
* END MEALS-IFP.PRG 


Jil 


WK OK KOK OOK OK KORO AK KK OK OOK OOK OKO KOK OK KKK OOK OK OOK OKO OK OK OOK KOK OK OR OK OK OK OK OK OK KOK OK KOK OK OK OK OOK KOK KOK OK OK OK OK OK 


- MEAL-PR - 
OKOKOKOKOK KOKO OOK OK KOK OK OK OK OK KOI IOK IK KOK KOK OK KOK KOK KOK OOK KKK KKK KK KOK KKK OK 


PROCEDURE MEAL-PR 
[evEAaG—PR wPRG 

* AUTHORS: LCDR J.L.TWIGG 
= Lit M.D ApEn 


CLEAR 
d 8,10 TO 16,68 DOUBLE 
ad 10,23 SAY [ PRINTING RECOMMENDED MESS BILL AND |] 
d 12,34 SAY [{ MEAL PRICGESY  ) 
d 14,32 SAY [ PLEASE STANDBY! ] 
SET CONSOLE OFF 
SELECT A 
USE SUMMARY 
TEMP1 = COSTMAN 7 DAYMON 
SELECT B 
USE SETCAT 
LP SUBS so ea 
DF TEMP eae 0 
REPLACE B_COST WITH .55 
REPLACE LSCOsT Wii. 7/5 
REPLACE S COST With 1-20 
REPLACE H_COST WITH 1-20 
ELSE 
TEMPZ = TEMP ace 
REPLACE B_COST WITH TEMP2 
TEMPS = TEMP =~ 40 
REPLACE L_COST WITH TEMP3 
REPLACE S_COST WITH TEMP3 
REPLACE H_COST WITH TEMP3 
ENDIF 
ENDIF 
SELECT 8B 
Sat DEVICE TO -PRENT 
DG suUG+Fs 
SE. oDEVICE. TO SCREEN 
EJECT 
SET CONSOLE ON 
CLOSE ALL 
CLEAR ‘ 
RETURN 
*MEAL-PR.PRG 


. Giz 


7K OOK ROK ROK OK OR ROR ROK OOKOOK ROK ROR OR ROK OKOOKOK OK AR OROOK ROK ROK KOK IR RR ROOROKOK ROR FR ROK ROR IK KOR OIK OKOIKOK KOK OK OR Oo 


x 


PROCEDURE MESS-B-A 
OOK KOK OOKK KOK KOK OKOK OKO OKOK KOK OK OK KKK KOK OK KKK KOK KK KK KOK KOK KOK KOK OK KOK KK KKK KOK KOK OK OK 


MESS -B5-A-PRG 


* NAME: 
* AUTHORS : 


*K 


* PURPOSE : 


*K 


e LISTING : 


CLEAR 
STORE 
STORE 
STORE 
STORE 
SORE 
SHORE 
SlORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
Sl ORE 
STORE 


oooo. 
Oooo. 
.00 TO 
OO, TO 
ue-00 TO BR_COST 
wo700 TO LU_COST 
OGme0 TO DI_COST 
0G~ 00 TO HOLCOST 
GOGG700 TO BILL_TTL 
OBG00-00 TO GTITL 


0000 
0000 


SPACE (20) TO LNAME 
SPACE (4) TO LRANK 


LEDR J.L.ITwWiGG 
LT M.T.MADDEN 


MESS-B-A 
2K FR RK ROOK KOK OKO ROKK ORK ORR OKOOKOOK ROKOOK KOROIK ROKK IK OKOIK KOK OK IK KK KKK IK IK IK IK IK KK KK IK IK OK OK OK OK OK OK 


COMPUTES MESS BILLS FOR A MESS SUBSISTING FROM 


180% IPE 
(OOK OK OKO KOKO OK KOKORO OK KOK OKOKOK CK KKK KKK KOK OKOK KOK KK OK KOK OK OK KKK OK 


00 TO 
oO TO 


BRK_TTL 
EeH_ TTL 
PNR TIL 
Plo et PL 


DATE() TO TDATE 

SPACE (9) TO TSSN 
TO ANS 
EO. PSirAr 


SELECT A 


USE SETCAT 
BR_COST 
BUaCOST 
MeECOST 
HO_COST 


now om 


SELECT B 


USE MEMBERS 


B 
L 
S 


Gost 
Jcost 
mcuc: 


HJCOset 


DO WHILE .NOT. EOF() 


IF (STATUS = 'M’') .AND. 
LNAME = NAME 
LRANK = RANK 
TSSN = SSN 
TSTAT = STATUS 
SELECT C 
USE MEALS 
ANS = ‘N' 
CLEAR 


SET COLOR TO W+/B,,R 


APPEND BLANK 
REPLACE MNAME WITH LNAME 


DO WHILE UPPER(ANS) <> 
= 000.00 


BILL_ITITL 
Se. FORMAT TO MEALS-FT 
EUIT RECORD 1 
CLOSE FORMAT 


COTOCCDETACHED): = * 7 Ff  '*) 


aoe 
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mK 


-AND. 


*% MH KH RK X 


(SHAREOUT 


0.00) 


Sisiy =" 


BRKSFTL = BRECOST te@ER LCT 
LOCH_ITL = LUSCOST ieee. 
DNR_TTE =eDaeCOStaes DI CT 
HLY_TTL = HOSCOST = 772 cr 
BILL. TIL = BRK_ITL + LOCH LITL + DNROTSL + HES 


DO MEALS. IF 

SET COLOR TO W+/R,, 

d@ 21,18 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) } 
SET COLOR TO B/BE,, 


WAIT °' *' TO ANS 
CLEAR 
SET COLOR 10 W+7bee 
ENDDO 
CLEAR 
GTIES-= Grae + BILL-ITTL 
TP BILEST TE. >207 00 
SELECT D 
USE TRANS . 
APPEND BLANK 
REPLACE DATE_IN WITH TDATE 
REPLACE TTYP WITH '‘'AR' 
REPLACE NAME WITH TSSN 
REPLACE AMT WITH BILL_TTL 
REPLACE DATE_PD WITH “CM*" 
REPLACE PURPOSE WITHeTIESS BILL™ 
END ES 
SELECI ae 
DELETE ALL 
PACK 
SELECT 8B 
ENDIF 
SKIP 1 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 


SEND MESS =5=A 
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KOK KOK KOK OK KK KOK OK IK KOK IK OK OK IK IK IK IK OKOIK OIRO OK OK OAK IK IK IK IK IK OK IK IK KOK IK IK OK DIK OK IK IK ROK OK OK KOK OK OK OK 


* MESS-CP 


x 


2K KARO FR IK AK IK IK KOK KK IK KK OK IK KOK KKK IKK KOK OKOIK KOK KOK KK OK IKK KKK KOK CK IK KK AK KOK KK KOK OIK OK OOK OK OK 


PROCEDURE MESS-CP 


WK KK OK IK OK KK IK IK KKK IKK IK OK IK IK KKK IK IK KK AK KK IK AK IKK OK AR AR KK IKK AK IK RR AK AK RR IK OK K AK I KOK IK IK IK IR OK KK AK IK OK 


* NAME : MESSaCr. PRG 
X AUTHORS: LCDR J.L.TWIGG 
* Li M.1.MADEBEN 


* PURPOSE: CALCULATES MESS BILLS FOR CFO MESS. 


* 
x 
x 
* 


TK KOK OK KK IK IK IK OK ARK KKK IK IK AR IK IKK RK IK KK RK RK IKK IKK KK ARK KKK ROKK KK AK RIK OK KK KK AK AK AK IK KK OK KK OK OK 


K LISTING: 
CLEAR 
STORE DATE() TO MDATE 
STORE SPACE (20) TO TNAME 
STORE 00000 TO TEMPA 
Sveme OOOO.00 TO TEMPB 
SELECT A 
USE MEMBERS 
DO WHILE .NOT. EOF(C) 
[iMamueraCCDETACHED) = * 7 sf 
TNAME = NAME 
SELECT B 
USE DYSWKD 
SET COLOR TO W+/B,,R 
CLEAR 
ANS = ‘'N' 
DO WHILE UPPERC(CANS) <> 'yY' 
SET FORMAT TO ASSIGND. FMT 
APPEND BLANK 
REPLACE DNAME WITH TNAME 
EDIT RECORD 1 
selec OoLOR ITO Wt/R,; 
gduloreae SAY [| IS THE ABOVE INPUT CORRECT? CY/N) 
SET COLOR TO B/B,, 
WAIT * * TO ANS 
Sot GOLGR STO Wt7B,;, 
CLOSE FORMAT 
ENDDO 
CLEAR 
Stone 
‘TEMPA = TEMPA + WORKD 
DELETE ALL 
PACK 
ENDIF 
SELECT A 
SKiEP | 
ENDDO 
CLEAR 
SELECT C 
USE SETCAT 
TEMPB = TEMPA * ERATS 
SELECT D 
USE TRANS 
APPEND BLANK 
REPLACE TTYP WITH ‘'AR' 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH ‘"DISB. OFFICER' 
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] 


REPLACE AMT WITH TEMPB 
REPLACE PURPOSE WITH ‘'COMRATS DUE' 
REPLACE DATE_PD WITE 'CF' 


CLOSE ALL 

CLEAR 

RETURN 

* END! MESS=CPeeno 








2K OK FR OOK KOK OK KKK OK OK FARK OR KK KKK ROK KOK OK OK OK OOK KOK OK KOK OK KOK OK OK KK KOK KOK OK OK OK KKK OK KOK KOK KOK OK 


* 


MESS -ES “ 


KOKORO ROK OR OOK OK OK OK OK OK AK OK OK OK OK OK OK OOK OK KK RK OK KOK OK KOK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OOK OK OK 


PROCEDURE MESS-ES 
KK 2K KK KK KK OK 2K KK 2K KK 2K 2K KK 0K KKK 2K KKK 2K KKK 2K KK KK 2K KK KK KKK KK KK KK KK KK KKK KK KK OK KOK 


* NAME : MESS=ES .PRKG 
* AUTHORS: LCDR J.L.TWIGG 


K 


Peeper Ose: COMPUTES MESS BILL FOR NON SUBSISTING MESS WITH 


K 


LT M.T.MADDEN 


x * KX KX X 


EQUAL PRORATION. 


MK KK OOK OK OK OK OK OK OK OOK OK OK OK KOK OK OK AK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OK OK KOK OK OK OK OK MK KK 


ALISTING: 


STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
SGORE 
STORE 
STORE 
STORE 
STORE 
STORE 


CLEAR 


0000000.00 TO TEMP1 
000.00 TO TEMP2 
0000 TO TEMP3 
000.00 TO TEMP4 
000000.00 TO TEMPA 
000000.00 TO TEMPB 
000000.00 TO TEMPC 
oe@@000.00 TO TEMPD 
6 ho). TSB. 
DATE() TO MDATE 
Beece €9) TO TSSN 
a LO SLSTAT 

‘ * TO ANS 


SELECT A 
USE INV 


Let P 1 


= PCONSUMED 


SELECT B 
USE SHARE 


GEMP2 
TEMPS 


= SHAR_VAL 
= NUM_MBR 


SELECT C 
USE SETCAT 


TEMP4 


= SET_SHARE 


IF (TEMP1 = 0.0) .AND. (TSUB <> 'y') 
REPLACE SUG_BILL WITH 0.00 


ELSE 


TEMPA 
TEMPS 
LeMPC 


TEME1 7 TEMPS : 
TEMP =~ TEMP2 
TEMEA + TEMPE 


von 8 


REPLACE SUG_BILL WITH TEMPC 


ENDIF 
TSUB 
TSTAT 


SUBSiST 
= METHOD 


REPLACE SPEC_ASS WITH 0.00 
Ste rORMAT TO REC-MBIL.FMT 
Ueewnoelbe UPPERCANS) <> ‘Y' 
EDIT RECORD 1 
SET COLOR TO W+/R,, 


ad 


20521 Sew [ IS THE ABOVE INPUT CORRECT? (Y/N) |] 


SET COLOR TO B/B,, 
WAIT ‘ *' TO ANS 
SET COLOR TO W+/B,, 


ENDDO 
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SicLre | 

TEMPC = SUG_BILE 

TEMPD = SPEC_ASS 

CLOSE FORMAT 

SET COLOR TO GR+/R,,N 
CLEAR 

d 8,10 TO 14,68 DOUBLE 


d 10,19 SAY [ MEMBER'S MESS BILLS ARE BEING COMPUTED ! J] 


d 12,32 SAY { PLEASE STANDBY ! ] 


SELECT D 
USE MEMBERS 
DO WHILE .NOT. EOF() 
IF (STATUS = °M') .ANDiosGDTOC CDETAGHED) = % 7 7 ")) aE” 
0.00) 
TSSN = SSN 
iP TEMEG > 0.00 
SEE ECT ar 
USE TRANS 
APPEND BLANK 
REPLACE TTYP WITH ‘AR’ 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH TSSN 
REPLACE AMT WITH TEMPC 
REPLACE PURPOSE WITH “MESS BILE’ 
IF (TSUB = ‘N*") @AND.. (CISTALS 3c 
REPLACE DATE_PD With “Ne 
ELS& 
REPLACE DATE_PD WITH ‘CM’ 
ENDIF 
ENDIF 
DG eee a0s10) aan elea 6. 
SELECT F 
USE TRANS 
APPEND BLANK 
REPLACE TTYP WITH ‘AR’ 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH TSSN. 
REPLACE AMT WITH TEMPD 
REPLACE PURPOSE WITH ‘SPECIAL ASSES' 
IF (TSUB = 'N') .AND. (TSTAT = ‘B!*) 
REPLACE DATE_PD WITH '‘'NM' 
ELSE 
REPLACE DATE_PD WITH ‘CM’ 
‘ ENDIF ; 
END EE 
SELECT D 
ENDIF 
SREP si 
ENDDO 
SET COLOR TO W+/B,,8BG 
CLEAR 
CLOSE ALL 
RETURN 


“END MESS .PRG 
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(SHAREOUT 


JK OK OOK OK OR KOK ROK OK ROK OK OR OR OK ORK OK OR KOK OR OK OR OK OK OK KOK OK ROOK OK OK OK OR OK OK OK OR OK OR OK OK OR OR OR KOR OK MK OK ORK OK OR OK OK 


m 


MESS > ricer _ 


KOK OK OK OK KK RK RK KR OK OK KK KR OK MK MK KK KOK OK OK OK RK KK MK KK OK RK KK KK MK KK KK MK KK OK KK KKK KK KK 


PROCEDURE MESS<-PRI 
TOKIO OK KOKO OKO OKO KKK KKK KOK KK KKK KKK KKK KK KK KKK KKK KKK OK 


* NAME : MESSerRi. PRG * 
*X AUTHORS: LCDR J. L. TWIGG ~ 
* LT M. T. MADDEN * 
*SPURPOSE: PREPARES AND PRINTS MONTHLY MESS BILLS. - 


Lo oD DS Do Do SD eo OD Do 2 SDD DD o SD DD DD DD oo SD DD DD DD DD DD oD fo D&S DD DD 2 DD DD DD DD 4 


*SLLSTING: 


ERASE 
CLEAR 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


PEMP2 . DBF 


00000.00 
00000.00 
00000.00 
00000.00 TO TMS 
00000.00 TO TSA 
SPACE (20) TO TNAME 
SPACE (9) TO TSSN 
“elo ITSTAT 


TO 
TO 
TO 


pine & 
TCB 
ee 


SET COLOR TO GR+/R,,N 


CLEAR 


d 8,10 TO 14,68 DOUBLE 
3d 10,19 SAY [ MEMBER'S MESS BILLS ARE BEING PRINTED ! ]} 


3d 12,31 SAY [ 


PLEASE STANDBY ! ] 


Ser CONSOLE OFF 
Seeeci F 
Use SETCAT 


IF TRIAL = 'Y' 
tne = SUBSIST 
SeLecrT & 


tee MEMBERS 


DO) WHEE .NOT. EOF(C) ; 
IF (STATUS = 'M') .AND. (DTOC(DETACHED) = ' 7 Ff '"*) 
TSSN SSN 
TNAME = NAME 
SELECT A 
USE TRANS 
Tep = 0.00 
TPB = 000 
mus = 0.00 
TSA = 0.00 
BO WHELE -NOT. EOF() 
IF NAME = TSSN 
DO CASE 
CASE PURPOSE = "MSS BILL RF OWED' 
teBe = ICB = ANT 
CASE PURPOSE = "MESS BILL* .AND. DATE_PD = 'NM" .AND. TTYP = ‘AR'* 
TCB = TCB + AMT 
CAeeeeURPOSE = "MESS BILL’ .AND. DATE_PD = ‘CM’ .AND. TTYP = ‘AR’ 
TCB = TCB + AMT 
CASE PURPOSE = ‘MESS BILL’ .AND. DATE_PD = ‘CF’ .AND. TTYP = ‘AR’ 
TPB = TPB + AMT 
CASE PURPOSE = ‘MESS SHARE’ .AND. TTYP = ‘AR’ 
TMS = TMS + AMT 
CASE PURPOSE = 'SPECIAL ASSES' .AND. TTYP = ‘'AR' 
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TSA = TSA + AMT 
ENDCASE 

ENDIF 
SkiP 
ENDDO 
Ti -—2Ch + TPB + 2S. 2 slo 
SEDECT E 
USE TMSSsBpill 
APPEND BLANK 
REPLACE MESS_SHR WITH™ IMS 
REPEACE MESS 2BILL WITH ICE 
REPLACE CF_AMT WITH TPB 
REPLACE SPEC_ASS WITH TSA 
REPLACE NAME WITH TNAME 
REPLACE SSN WITH TSSN 
REPLACE TBILL WiTHerie 
SELECT 5B 
ENDIF 
SKIF i 
ENDDO 
SELECTS 
USE SETCAT 
ENDIF 


REPLACE TITLE WITH ™ MONTHLY MESS BILL STATEMENT 
SEL DEVICE IO PRENT 

DO TIILE 

SET DEVICE TO SCREEN 

SELECT E m 

USE MSSBILL 

INDEX ON NAME TO MSSBILL 

REPORT FORM MESS-BILL.FRESrFEAIN TO PRINT 
USE 

SET CONSOLE ON 

SET COLOR TO W+/B,,BG 

CLEAR 

CLOSE ALL 

ERASE MSSBILL.NDX 

RETURN 

*END MESS=PRI.PRG 


WK CROOK ORK KOK KOK OK KR RRR OK RR IK IR IKK IKK ARK IK IK KR IR RR RRR IK KOK IKK IK IR IR IR IR ROR IR ROR OK IR AKIKO RIK IK OK OK 


” MS-SHAR x 
OOK COOK OK OKO ICOK OK OK IOOK OK IOI IO OOO OKO KOKI KKK KK KK OK OK 


PROCEDURE MS-SHAR 
TOKIO OOOO KOK III ICICI ICICI ICICIICI ICICI ICICI ICICI III IK IK KK KK OK 


* NAME: MS-SHAR. PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN « 
* PURPOSE: CALCULATES THE CURRENT VALUE OF THE MESS SHARE. * 


DK KOK OK OOK OOK OK OK OK IK ROK OK OK IR ROR ROKK KKK IK IK RIK IK IK IK KK IK IK IK IK IK IK IK IK IK IK OK IK IK IK IK IK IK IK IKK IK KK IK IK OK OK KOK OK OK OK 


* LISTING: 
STORE 000000.00 TO TWORTH 
STORE 000.00 TO TSHARE 
STORE 0000 TO TCOUNT 
SELECT E 
USE SETCAT 
Peaeiesos <> *E* 
SELECT A 
USE FINBAL 
TWORTH = NET_WORTH 
SELECT B 
USE INV 
TSHARE = VAL_FWD 
SELECT C 
USE MEMBERS 
BeewHitle .NOT. EOF() 
PeeotAruS = °M" .AND. DTOC(DETACHED) =" 7 sf *® 
TCOUNT = TCOUNT + 1 
ENDL 
SKIES] 
ENDDO 
SELECT D 
USE SHARE 
REPLACE WORTH WITH TWORTH , 
REPLACE NUM_MBR WITH TCOUNT 
REPLACE SHAR_VAL WITH TWORTH 7 TCOUNT 
REPLACE PRE_SHAR WITH TSHARE 
REPLACE INC_DEC WITH SHAR_VAL - PRE_SHAR 
CLOSE ALL 
ELSE 
SELECT D , 
USE SHARE 
REPLACE WORTH WITH 00.00 
REPLACE NUM_MBR WITH 0000 
REPLACE SHAR_VAL WITH 00.00 
REPLACE PRE_SHAR WITH 00.00 
REPLACE INC_DEC WITH 00.00 
CLOSE ALL 
ENDIF 
RETURN 
XEND MESS-SHA.PRG 


db 


WR OK ROK OR ORK OK RRO OK OR ROOK ROR OOR ORO RRO OK OK ROOK OK ROR OOK OOK OR OK ROOK OR OK OK OK OK OK KOK ROOK ROK OK OK OK OOK OK OK OK OK OK OK 


* NEWPASS m 
OKO OOK OK OKO KOK OK KOK OKI OK KOK IKK OK OKIOKOK OK OK IOI OK OK KOK KOK OK KKK KOK OK 


PROCEDURE NEWPASS 
ROOK OKO OK IKK KKK KKK KKK KK KK KKK KK KK 


* NAME: NEWPASS . PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN * 
* PURPOSE: TO ALLOW USERS TO CHANGE PASSWORD. * 


KK ROK OR OOO OR OR OR OR OK OR OR KOR ORK OK ROR ROR ROR ORR ROR OR RR OK ROK OK ROK ROOK OK ROK KR OK OK KOK KKK OK KK OK KOK OK OK OK OK OK OK OK 


* LISTING: 

CLEAR 

STORE SPACE (10) TO TCODE 
STORE 00 TO TCOUNT 

STORE 0000 TO PCODE 


STORE ' ' TO ANS 
STORE ' ' TO PASS 
ANS = 'N! 


USE SETCAT 
DO WHILE UPPER(ANS) <> 'y' 
REPLACE PASSWORD WITH ' ' 
SET FORMAT TO PASSWORD.FMT 
EDIT 
SET COLOR TO W+/R,, 
ad 14,19 SAY [ IS THE ABOVE NEW PASSWORD CORRECT? (Y/N) ] 
SET COLOR TO B/B,, - 
WAIT ' ' TO ANS 
SET COLOR TO W+/B,, 
CLOSE FORMAT 
ENDDO 
SKIP -1 
T6OUNT EEO 
DO WHILE TCOUNT <> LEN( PASSWORD) 
TCOUNT = TCOUNT + 1 
STORE SUBSTR(UPPER( PASSWORD) ,TCOUNT,1) TO PASS 
PCODE = PCODE + (ASC(PASS)) 
ENDDO 
PCODE = (PCODE * 1000) + (PCODE + 238) 
STORE STR(PCODE,10) TO TCODE 
REPLACE PASSWORD WITH TCODE 
CLEAR ° 
CLOSE ALL 
* END NEWPASS.PRG 


L2Z2 


2K 0 ROKK ROK KK IK KOK KOK ORK ROK KIK ROKK KKK ROKK IK ROOK KCK IKK IKOIK OK OIK ORCIKCIKOIK IK IK OIKOIK IK IKK IK IK IK OK 


* 


7K KKK IK IKK OK OOK KOK K KOKORO KOKO KORO III ORO OKO IK KOK OOK IK IK IKK ROIK IK IK KOK IK IK IK IK IK KIKI OK ROOK IK 


PROCEDURE PAYBILL 


ROK OOK RRR KOK FR KOK KKK OROK KKK IK IKI OK KOK ROK IKK IK KKK IK IK KCK IK KK IK IK IK FAK OK OKOIK KOK ROKK IK IK IK IK 2K 2K 2K OOKOIK KK 


* PAYB 
* AUTH 
* 


“PURP 


ied SL 
CLEAR 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
CHOICE 


PoewnolLk UPPERCCHOICE ) 


LES .PRG 


ORS: LCDR J.L.TWIGG 
Et M.7 .MADDEN 


OSE: PROCESS CASH COLLECTIONS FROM MEMBERS. 
OOOO OOK OKO OK OOOK OK OK KOK OOK OOK KOKO OOK KOKO OK OK KOK KOK KKK KK KKK KKK KK KKK 


ING: 


ee OmGHol CE 


[o TO ANS 

SPACE (9) TO 
0000 TO TREC 
000000.00 TO 
000000.00 TO 
000000.00 TO 
000000.00 TO 


SPACE (25) TO TPURPOSE 


rool 


CASH 

TCASH 
SCASH 
RCASH 


SPACE (20) TO TNAME 
DATE() TO TDATE 


= ty? 


TREC = 0 


AN 
TS 


DO WHILE UPPERC(CANS) <> 
ad 6,9 TO 14,69 DOUBLE 

SET COLOR TO W+/R,, 

ad 10,12 SAY [ ENTER THE SOCIAL SECURITY NUMBER FOR PAYEE: 
GET TSSN PICTURE [######### | 


EN 
SE 
US 


LOCATE FOR SSN 


1s 


EL 


S = 'N! 


SN = '--------- 


READ 


3d 14,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 


SET COB@OR TO E7BE,, 
WATT *. '. TO 


SET COLOR TO W+/B,, 


CLEAR 
DDO 
LECT A 
E MEMBERS 


ANS 


= TSSN 


wel FOUND) 


CLEAR 


adwowie TO 12,68 DOUBLE 
SET COLOR TO W+/R,, 

d 10,17 SAY [{ 
SET COLOR TO W+t+/B,, 


0 14,1 SAY [ ] 
WAIT TO CONT 


SE 


TNAME = NAME 


IF STATUS 
TREC = 

ENDIF 

ANS = 'N' 


mR 
RECNO( ) 


sty? 


SOCIAL SECURITY NUMBER NOT IN DATA BASE! 
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] 


I 3 


CEPAR 
@ 5,15 TO 9,63 DOUBLE 
ad 7,20 SAY [ MEMBER NAME: } 
d 7,38 SAY TNAME 
DO WHILE UPPER(ANS) <> 'yY' 
CASH = 00.00 
d 11,9 TO 15,69 DOUBLE 
SET COLOR TO W+/R,, 
d 13,15 SAY [ WHAT IS THE AMOUNT OF THE COLLECTION? ] ; 
GET CASH PICTURE [ ######. ## ] 
READ 
d 15,21 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) } 
SET COLOR TO B¥#B,, 
WAIT '‘ ' TO ANS 
SET COLOR TO W+/B,, 
CLEAR 
ENDDO 


SELECT B 
USE TRANS 


COPY TO TEMP SEOR CULE, "AR' .AND. NAME = TSSN) .OR. ; 


C(TTYP = ‘AP" “AND. NAME TSSN)) 
TCASH = 0.00 

SCASH = 0.00 

RCASH = 0.00 

SELECT C 

USE TEMP 


IF RECCOUNT() > 0 .AND. CASH > 0.00 
DO WHILE .NOT. EOF() 
DO CASE 
CASE PURPOSE = ‘MSS BILL RF OWED' 
TCASH = TCASH + AMT 
REPLACE I1TYP Wit (ore 
REPLACE PURPOSE WITH ‘MSS BILL RF'* 
CASE PURPOSE = ‘MSS SHARE RF OWED ' 
SCASH = SCASH + AMT ; 
REPLACE TTYP WETH ‘hee 
REPLACE PURPOSE WITH ‘MSS SHARE Ea’ 
OTHERWISE 
RCASH = RCASH + AMT 
ENDCASE 
SKIP 1 
ENDDO - 
CASH = CASH + TCASH + SCASH 


IF CASH <= RCASH 

IF (TREC > 0) .AND. CCASH = RCASH) 
SELECT A 
USE MEMBERS 
DELETE RECORD TREC 
PACK 
SELECT C 

ENDIE 

GOTO TOP 

DO WHILE CASH > 0.0 .AND. .NOT. EOF() 

IF TIYe2<c> “*xXP* 


DO CASE 
CASE PURPOSE = ‘MESS BILL' (Alm. ; 
DATE_PD = ‘CF* .AND. TTYP = ‘AR'‘ 
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TPA Ost —sieicsos BILL PM’ 
CASE PURPOSE =""MESS BILL" .AND. ; 
DATED. = CM) .ANDi» TIYP = ‘AR’ 
VPUREPOSE  =ssiesos BILL CM" 
CASE PURPOSE = *MESS SHARE’ .AND. ; 
TIYe = "AR! 
TPURPOSE = ‘MESS SHARE' 
CASE PURPOSE = "SPECIAL ASSES* .AND. ; 
TaiyP =, SAR 
TPURPOSE = ‘SPECIAL ASSES' 


ENDCASE 
IF CASH >= AMT 
REPLACE DATE_PD WITH '‘'PD' 
REPLACE PURPOSE WITH TPURPOSE 
REPLACE TTYP WITH 'CL' 
CASH = CASH - AMT 
ELSE 
REPLACE AMT WITH (AMT - CASH) 
INSERT BLANK 
REPLACE TTYP WITH 'CL' 
REPLACE DATE_IN WITH TDATE 
REPLACE NAME WITH TSSN 
REPLACE AMT WITH CASH 
REPLACE PURPOSE WITH TPURPOSE 
REPLACE DATE_PD WITH '‘'PD' 
CASH = 0.00 
ENDIF 
ENDIF 
SKIP 1 
ENDDO 
USE 
SELECT B 
USE TRANS 
DELETE FOR (TTYP = 'AR' .AND. NAME = TSSN) .OR. ; 
(TTYP = 'AP' .AND. NAME = TSSN) 
PACK 
APPEND FROM TEMP 
ERASE TEMP .DBF 
ELSE 
CLEAR 
d 8,10 TO 12,69 DOUBLE 
SET COLOR TO W+/R,, 
ad 10,19 SAY ; 
‘ [ COLLECTION IS GREATER THAN AMOUNTS OWED ] 
SET COLOR TO W+¥/B,, 
d 13,1 SAY [ ] 
WAIT TO CONT 
ENDIF 
ELSE 
CLEAR 
@ 8,10 TO 16,69 DOUBLE 
SET COLOR TO W+V/R,, 
3d 10,24 SAY [| MEMBER HAS NO OUTSTANDING DEBTS ] 
d 12,39 SAY [OR] 
d@ 14,20 SAY [ A COLLECTION AMOUNT OF ZERO WAS ENTERED ] 
SET COLOR TO W+¥/B,, 
477,17. SAY |] 
WAIT TO CONT 
ENDIF 
ENDIF 


LZ 


CLEAR 

ad 8,7 TO 12;,72eD0UBLE 
SET COLOR TO W+/Rk,, 

d 10,16 SAY [DO YOU WISH TO RECORD ANOTHER COLLECTION? 
SET COLOR TO B/B,, 
WAIT °* * TO CHOTCE 
SET COLOR TO W+/B,, 
CLEAR 

CLOSE ALL 

ERASE TEMP . BEE 

ENDDO 

CLEAR 

RETURN 
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(Y/N) 


] 


OK OK KOR ROR ORR ORR OKO OK KOK ROOK KOK KOR OR ORK KOKO OK OK OK OK OKOK KOK OK KOK OK OIKOK KOK IK KKK DKK KOK KKK KOK OK OK OK 


¥ PAYCR * 
WR OK OK OOK OOK OOK OK KOK OK KOK OOK KK OOK KOK KOK OK KOK OK OK OK O0K OK OK OK OK OK OK OK OK OK OKO 2KOK KOK OKO OK OK OK OK OK KKK KK KKK KM 


PROCEDURE PAYCR 
OK OIOKIOK IKI OK ICICI OK OK IOI IOK KKK KOKORO KKK OK OK OOK OK KOK KKK KK KK KKK OK 


* NAME: PAYCR.PRG “ 
* AUTHORS: LCDR J.L.TWIGG * 
* tt M.1T.MADDEN ue 
* PURPOSE: TO RECORD CASH RECEIPTS FOR COMRATS. = 


2K OK OK OK OK ORK RK RK OR OR ROR ROOK OK OK OK OK OK OR KK ROK ROK OK OK OOK OK OK OOK OK KK OK KOK KOK OK OOK OK OK OK OKOKOK KOK 2K OK OK KOK OK OK OK OK OK OK 


toll NG: 

CLEAR 

Sere * ' TO CHOICE 
STORE DATE() TO TDATE 


SELECT A 

USE TRANS 

CHOICE = ‘N’' 

Pee e CUPPER(CCHOMCE) <> °'Y*) .AND.. (.NOT. EOF()) 
feetaete = eh “AND PURPOSE =" "COMRAIS DUE‘ 


DO PAYRATS 
SET COLOR TO W+/R,, 
d 20,19 SAY [ IS THIS THE CORRECT TRANSACTION? (Y/N) ]) 
SET COLOR TO BYB,, 
WAIT ' ' TO CHOICE 
SET COLOR TO W+/B,, 
CLEAR 
IF UPPER(CHOICE) = 'y' 
REPLACE TTYP WITH 'CL' 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH 'PD' 
REPLACE PURPOSE WITH 'COMRATS' 
ENDIF 
ENDIF 
SKIP 1 
ENDDO 
IF EOF() .AND. UPPER(CHOICE) <> 'y'! 
@ 10,11 TO 14,68 DOUBLE 
SET COLOR TO W+/R,, 
@ 12,25 SAY [ END OF FILE HAS BEEN REACHED! ] 
SET«‘COLOR TO W+/B,, . 
@ 16,1 SAY [ ] 
WAIT TO CONT 
ENDIF 
CLEAR 
CLOSE ALL 
RETURN 
* END PAYCR.PRG 
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K 2K KK OK OK OK 2K KK OK KK 2K OK OK OK OK OK OK OK KOK OK OOK 2K OK ROOK KOK OK OK 2K OK OK ROK KOK OK ROK 2K OK KK ROK OKOOK OK OK OK OR OK OK OK OK OK 


* PAYOTHER ~ 
2OKOOKOOK OK OK OKO OK KOK OK OK OKOK KKK KOKORO KOK KKK KK KK 0K KKK KK KK KKK KK OK KK OK 


PROCEDURE PAYOTHER 
OOKOKOOKOKOKOKOKOKOKOK KOK OKO OKOKOK OK KKK KOK OKOK KKK OK OKK KK KK KK KK KK KK KK KK KKK KK 2K KOK 


* NAME : PAYOTHER. PRG m 
*X AUTHORS: LCDR J.L.TWIGG * 
m LT M.T.MADDEN = 
* PURPOSE: TO RECORD CASH COLLECTION FROM OTHER THAN MEMBERS. x 


KK OK OK AK OK OK KK KOK FR OK OK KOK OK OK OK OK KOK OK OK OK KK OK OK OK OK OK AK OK OK KOK OK OK OK OK 3K KOK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK AR AR OK OK OK OK OK 


* LISTING: 
CLEAR 
STORE * * TO CHOTCE 
STORE DATEC) TO TDATE 
SELECT A 
USE TRANS 
CHOTCE = Ne 
DO WHILE (CUPPER(CHOICE) <> ‘Y‘') .AND. (.NOT. EOF(C)) 
IF TTYP = 'AR* .AND. PURPOSE <> 'COMRATS' .AND. PURPOSE <> ‘MESS BILL’ 


.AND. PURPOSE <> 'MESS SHARE' .AND. PURPOSE <> ‘SPECIAL ASSES' 
DO PAYRATS.PRG 
SET COLOR TO W+/R,, 
@ 20,19 SAY [ IS THIS THE CORRECT TRANSACTION? (Y/N) ] 
SET COLOR TO BvB,, 
WAIT ' ' TO CHOICE 
SET COLOR TO W+/B,, 
CLEAR 
IF UPPER(CHOICE) = 'y' 
REPLACE TTYP WITH 'CL' 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH 'PD' 
ENDIF 
ENDIF 
SKIP 1 
ENDDO 
IF EOF() .AND. UPPER(CHOICE) <> 'y' 
@ 10,11 TO 14,68 DOUBLE 
SET COLOR TO W+v/R,, 
ad 12,21 SAY [ THE END OF THE FILE HAS BEEN REACHED! ] 
SET COLOR TO W+/B,, 
3 16,1 SAY [ ] : 
WAIT TO CONT 
ENDIF 
CLEAR 
CLOSE ALL 
RETURN 
* END PAYOTHER. PRG 
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ROK KOK KK OK ROKK RRR ROR OKO KKK IK OIK KKK IK OK OK KOK OK KOK KOK IKK IK IK IK IKK IK OK KOK IK IK IK IK IK IK IK KK OK 


= PAYRATS Le 
OOOO CICK ICO OK OKO OOK OOK OKO KK KKK KKK KK KK KKK KKK KK KKK KKK KK 0K 


PROCEDURE PAYRATS 
OCC CICICOK ICICI ICO OIC OK IKK IKK ICO IO IOK IO IOK OK KKK KK KOK KKK KKK KK OK 


* NAME: PAYRATS . PRG = 
* AUTHORS: LCDR J.L.TWIGG x 
* LT M.T.MADDEN * 
* PURPOSE: INPUT SCREEN FOR TRANSACTION PROCESSING. x 


ROK KOR OK OK OK OK ROK OK ROK OK OK ORR KOK OK OK KKK OK OK OK IKK OK IK KK KK AOK KKK OK 2K 2K KK KK IKK OK 2K KK IK KK OK DK KK OK OK OK 2K OK 


* LISTING: 

ad O, 0 SAY [TR-005] 

d 3, 27 SAY "TRANSACTION IDENTIFICATION" 
d 6, 20 SAY "THIS SCREEN IS USED TO IDENTIFY A DESIRED" 
@ 7, 23 SAY "TRANSACTION THAT IS TO BE PROCESSED." 
ad 9, 13 SAY "NAME OF TRANSACTOR:" 
d 9, 49 SAY TRANS~>NAME 

d 12, 13 SAY "DATE OF THE TRANSACTION:" 
a2, 61 SAY TRANS->DATE_IN 

ad 14, 13 SAY “AMOUNT OF THE TRANSACTION:®" 
0d 14, 60 SAY TRANS->AMT 

d 16, 13 SAY "SERIAL NUMBER IF APLICABLE:" 
d 16, 64 SAY TRANS->REQ_NUM 

@ 18, 13 SAY "PURPOSE OF THE TRANSACTION:®" 
®@ 18, 49 SAY TRANS->PURPOSE 

feed, 25 TO 4, 54 DOUBLE 

ae 1, 5 TO 20, 74 DOUBLE 

* END PAYRATS.PRG 
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K KOK OK OK OOK OK OK OK OK OK OK KOK OK KOK OOK OOK KOK KOK OK OOK OK OK OK OK OK OK OK ORK OK OK KOK OK OK IK OK OK OK OK KK OK AR KKK ROK KOK OK OK OK OK 


* PM * 
OOK OK OKO OK OKO KOK OK OK OK OOK KOK OK OK IOK KKK KOK OOK OK OK OK KKK OK KKK IK AK K OK K KK KKK KK KK OK 


PROCEDURE PM 
OOK OK OKO OK OOKOK ICO AIOK KOK OK OKOK KOK KOK OK KOK OK KOK OKO AIK KK KKK IK OK KKK KK KOK OK OK 


* NAME : PMe PRG * 
* AUTHORS: LCDR J. L. TWIGG * 
* LT M. T« MADBEN * 
* PURPOSE: MAIN MENU DRIVER PROGRAM FOR THE SYSTEM. * 


YK OK OK OK OK OK OK OK OK OK OK OK OOK KK KOK KOK OK OK OK KK OK KOK OK KOK OK OK OK OK KOK OK IK KOK KOKO OK OK OK OK OK AR AR ROK OR OR OK OK OK OK OK OK OK OK OK OK 


* LISTING : 

CLOSE ALL 

CLEAR 

SETA SELL) OFF 

SET ESCAPE OFF 

SEiesTALUS OFF 

SET CALK OFF 

SET SCOREBOARD OFF 

STORE "97310 CHoOmeE 

SET COLOR TO W+/B,GR+/R,R 


CLEAR 
a 2,4 TO 21,75 DOUBLE 
ad 5,26 SAY [NAVY FOODSERVICE MANAGEMENT ]} 
@ 6,24 TO 6,55 DOUBLE 
0 10,19 TO 16,59 DOUBLE 
d 12,28 SAY [ACCOUNTING SYSTEMS FOR] 
ad 14,28 SAY [PRIVATE MESSES AFLOAT ] 
d 18,38 SAY [Developed by: LCDR J.L.TWIGG, SC,USN] 
@ 19,52 SAY [LT M.T.MADDEN, SC, USN] 
ad 22,1 SAY=l 
WAIT TO CONT 
DO INTRO 
CLEAR 


DOMWHILE  .T. 
@ 0,0 SAY [M-0] 
2,4 TO 20,75, DOUBLE 
3,18 SAY [FINANCIAL ACCOUNTING FOR PRIVATE MESSES AFLOAT ] 
4,16 TO 4,65 DOUBLE 
6,33 SAY [MAIN MENU] 
7,31 TO 7,44 DOUBLE 
10,23 SAY [SELECTION . CODE) 
Wty 2 eer lig oe 
14555 TOs11,56 
12,20 SAY [SYSTEM UTILITIES 
14,20 SAY [PROCESS TRANSACTIONS 
16,20 SAY [GENERATE FINANCIAL REPORTS 
18,20 SAY [QUIT 
27s) SAY fl) 
rae WAIT * Enter your selection code: " to choice 
DO CASE 
CASE CHOICE = "1" 
DO -UGLL 
CASE CHOICE = "2" 
DO TRANT 

= CASE CHOICE = 3" 
> DO TRIAL 

CASE CHOICE = "4" 


@ @ @ @ @ @ @ @ @ @ @ A A 
EFwWwn- 
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CLEAR 
a 10,9 Tomi 7O,DOURLE 
SET COLOR TO W+/R,, 
@ 12,17 SAY [ INSERT FORMATTED ARCHIVE DISK IN DRIVE A ! ] 
SET COLOR TO W+/B,, 
ad 15,1 SAY [ ] 
CLOSE ALL 
WAIT TO CONT 
SET COLOR TO ,,R 
CLEAR 
ad 10,15 TO 14,64 DOUBLE 
ad 12,28 SAY [| ARCHIVING IN PROGRESS ! ] 
ERASE A:TTRANS.DBF 
ERASE A:TMEMBERS.DBF 
ERASE A:TSETCAT.DBF 
ERASE A:TINV.DBF 
ERASE A:TSUMMARY.DBF 
USE TRANS 
COPY TO A:TTRANS.DBF 
USE MEMBERS 
COPY TO A:TMEMBERS.DBF 
USE SETCAT 
COPY TO A:TSETCAT.DBF 
USE INV 
COPY TO A:TINV.DBF 
USE SUMMARY 
COPY TO A:TSUMMARY.DBF 
CLOSE ALL 
SET COLOR TO ,,BG 
QUIT 
OTHERWISE 
SET COLOR TO GR+/B,,R 
CLEAR 
@ 8,21 TO 17,57 DOUBLE 
d 11,23 SAY [YOUR CHOICE IS NOT ON THE MENU !] 
d 14,23 SAY [PLEASE MAKE ANOTHER SELECTION !] 
d 18,1 SAY [ ] 
WAIT TO CONT 
SET COLOR TO W+/B,GR+/R,BG 
CLEAR 
LOOP 
ENDCASE 
ENDDO 
SET STATUS ON 3 
*XEND OF PRG 
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YK OK OK KOK OK KK KK OK KK KK OK KK KKK OK OK KOK OK KOK KOK OK OK OK OK OK OK OOK KOK OOK OK OK ORK OK OR OK ROK OK OK OK OK OK OK OK MOK KK 


* PROV-€CoNn x 
COORG OK OKO OK KOKO OKK OK KOK KK KK KKK KKK KOK 0K KKK KK KK KOK 


PROCEDURE PROV-CON 
SOCORRO OOK OOK OOK KKK KOKO OK KKK KK KKK KKK KKK KK OK 0K KK KKK OK KKK 
* NAME: PROV-CON JERG 

* AUTHORS: LCDR J.L.TWIGG 

m8 LT. M.7 _MARDEN 

* PURPOSE: GENERATES THE PROVISIONS CONSUMED INFORMATION FOR 
*x 


OUPEURT ENG 
KKK KKK KK KK KKK KK KK KKK KK KK KK KKK KK KK KKK KK KKK 2K KK 9K KK KKK KKK KOK 2K KK OK OK OK OK OK OK OK 


% KH NM KH 


* LISTING: 
STORE 000000000.00 TO PCTEMP 
STORE 000000.00 To TAMT 
STORE * ' TO ANS 
SELECT B 
USE TRANS 
DO WHILE .NOT. EOF() 
IF TTYP = "AP" .AND. (PURPOSE = "PROV VENDOR OQWED" .OQR. PURPOSE 
OWED") .AND. DATE_PD = "CM" 
TAMT = TAMT + AMT 
ELSE 
IF TTYP = 'XP* .AND. (PURPOSE = “PROV VENDOR" .OR. PURPOSE 
FSO") .AND. DATE_PD = ‘'CM' 
TAMT = TAMT + AMT 
ENDIF 
ENDIF 
SKIP 1 
ENDDO 
SELECT A 
USE INV 
REPLACE RECPT WITH TAMT 
REPLACE E_INV WITH 0.0 
REPLACE N_INV WITH 0.0 
CLEAR 
DO WHILE UPPER(ANS) <> 'Y' 
SET COLOR TO W+/B,,R 
SET FORMAT TO END-INV.FMT 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
@d 241,22 SAY [ IS THE ABOVE INPUT CORRECT?-(Y/N) ] 
SET COLOR TO B/B,, 
WAIT ' * TO ANS 
ENDDO 
SET COLOR TO GR+/R,,N 
CLOSE FORMAT 
CLEAR 
ad 6,10 TO 16,68 DOUBLE 
ad 12,18 SAY { CONTINUING FINANCIAL STATEMENT GENERATION ! ]} 
3d 12,31 SAY { PLEASE STANDBY ! ]} 


SKiF aa 

PCTEMP = bechy + REGrT —- EL INV 
REPLACE PCGNSUMED WITH PCTEMP 
USE 

RETURN 
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“PROVeEce 


"PROV 





KOK OK OK OK OK KK OK OK KOK OK KOK OK OK OOK OK OK OOK OKO OIK OK OK OK OK KOK OK OK OK OK OK OIK OOK IK OK OK KK OK OK RIK ORK ROK OK OK OK OK OK OK KOK OK OK 


x PR CEE x 
OOOO OK OKOKOKOKOKOK KOK OOK OK KOK OK OK OK KKK KOK KOK KOK KK KKK KKK KKK KKK KK KKK KK KK OK 


PROCEDURE. PRI-ELLE 
OKO OK OK KOKOKOKOKOKOKOK KOKO KOK OKO KOK IK KKK ICICI II III IK IOI IOI IOK IK KKK KK KK AK OK 


* NAME : PRI Picea * 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN * 
* PURPOSE: PRINT MEMBERS AND TRANSACTION FILES. x 


KOK KK OK OK OK OK OK OK OK KOK OK OK OK KOKI OK OK OK KOK OIK KOK OK KOK IK KOK OK KOK IK IK OOK OK OK AF KOK IK KOK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK 


A OLISTING: 

CLEAR 

30,0 SAY [UT-019] 

a0 10,8 TO 18,71 DOUBLE 

@ 12,12 SAY [ THE TRANSACTION FILE AND MEMBER FILE ARE BEING PRINTED! |] 
SET COL@R 7O GRt/R,, 

@ 14,28 SAY [ INSURE PRINTER IS ON ! J 
SET COLOR TO W+/B,, 

® 19,1 SAY [ ] 

WAIT TO CONT 

CLEAR 

@ 12,6 FO-16,71 DOUBLE 

@ 14,30 SAY [ PLEASE STANDBY! ] 

SET CONSOLE OFF 

SELECT A 

USE SETCAT 

REPLACE MEhiLE Whi TRANSACTION FILE' 
SET BDEVICE TO PRINT 

DO TITLE 

SEP SDEVICE TO SCREEN 

SELECT B 

USE TRANS 

REPORT FORM REC-TRNS PLAIN TO PRINT 
SELECT A 

USE SETCAT 

REPLACE TITLE WITH ' MEMBERS @F ole. 
SET DEVICE TOsPRINT 

DO TITLE 

SET DEVICE Toe scCREEN 

SELECT C 

USE MEMBERS 

REPORT GOR eosk on et er EAIN TO CPR EN. 
CLEAR 

CLOSE ALL 

SET CONSOLE ON 

RETURN 

*ENDP PRI =P lie. PRG 
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JK KOK KOR OK ORK OK KOK OK KOK OOK KK KOK OK OK KOK IKK IK CIKCIKOKOIK IKK KCK OKO IK OKOIK KKK IK IKK OKO OIRO XK KOK KOK OK KOK 2K 


x PRE=ES _ 
KOKO OKO OOK KOKO OKOKOK KOKO KKK KKK KKK KOK KKK KOK OK KKK KOKORO K KKK KOK 


PREGEDURE PRI-FS 
SOKO OKOKOKOKOK KOKO OKOKOK KOKO OKI IIKOKIKOKOKOKKOKOKKKKIKIOK OK IOK KKK OK KKK KKK KKK 


* NAME : PRe-FS.PRG * 
* AUTHORS: LCDR J.L.TWIGG as 
~ LT M.T.MADDEN - 
* PURPOSE: DRIVER FOR PRINTING FINANCIAL STATEMENTS. * 


7K OK OR ROR OR OR OR OR ROR ORR ROK OK RRR OK OOK OK OR KOK KOK OK OK KKK KK KOK IK KCK OKOK OKOKOK OK KOK OKO OK OKO OK KOK KOK OK OK OK KOK 


eo ol NG: 

CLEAR 

@ 8,10 TO 12,68 DOUBLE 

SET COLOR TO W+/R,, 

g@m10;,25 SAY { CHECK TO ENSURE PRINTER IS ON ! ] 
SET COLOR TO W+/B8,, 


ad 14,1 SAY [ ] 
WAIT TO CONT 
CLEAR 


d 8,10 TO 16,68 DOUBLE 
d 10,23 SAY { MONTHLY FINANCIAL STATEMENTS ARE |] 
@ i2,32 SAY [ BEING PRINTED ! ] 
d 14,31 SAY [ PLEASE STANDBY !! ] 
SET CONSOLE OFF 
SerteeEViCE TO PRINT 
SeLeEcT F 
Use SETCAT 
DO HEADING 
SELECT A 
USE FININC 
DOSINC-FS 
sil weRiNT OFF 
SELECT B 
USE FINBAL 
DO BAL-FS 
EJECT 
DO SHARE-FS 
SELecT E 
USE SUMMARY 
DO COST-FS 
EJECT ; 5 
SeeectT F 
USE SETCAT 
faesUgotslT = "N™ 
SELECT FE 
USE SUMMARY 
DO COMRTS 
EJECT 
ENOULF 
mt DEVICE TO SCREEN 
SET CONSOLE ON 
CLEAR 
CLOSE ALL 
RETURN 
PeEND PRI-FS .PRG 
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KK KK KOK OK OK 0K KOK KOK OK OOK OK OK OOK KOK OK OK OK KOK OK OK OK OK OK ORK OK OOK OK OK OOK OK OK OR OK OKO KK OK ORK OR OK OK OOK KK OK OK KA 


x REBATE m 
OOOO OK OKO OK OK OK KOK OK OK KOK KK OKOK KK KKK KK KK KK KKK KK KK 2K 2K KK 2K KK KK KOK 


PROCEDURE REBATE 
OOK OOK OK OK KOK KKK KOK KKK KKK KK KK KKK KK KK KK 2K KK 2K KK 2K KK 0K KK 0K KOK OK 2K 0K KOCK KOK OK 2K 2K OK OK 


* MANE: REBATE. PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN * 
* PURPOSE: CALCULATES REBATE OWED TO MEMBER UPON DETACHMENT. * 


YK KK KK 2K OK OK OK KOK 3K 9K OK 2K 3K 2K 2K 2K OK OK 2K OK OK 2K OK 2K OK KOK OK OK OK OK OK OK OK OK OK OK OR OK OK OK OK OK OK KOK KOK ROK OK OK OK OK OK OK OK OK OK OK OK OK 


* LISTING: 

CLEAR 

SELECT D 

USE SETCAT 

TRIE = sUG_ BIEL 
SELECL oF 

USE DYSWKD 

APPEND BLANK 

Sore hOnmmMAt ITO DYS .EMT 


ANS = 'N' 
DO WHILE UPPER(ANS) <> 'yY' 
EDIT 


SET COLOR TO W+t/R,, 
d@.15,22 SAY | IS THE ABOVE INPUT CORRECT? CY7ige 
SET COLOR TO B78 


WAIT * * TO ANS 

SET COLOR TO Wt/B,, 
ENDDO 
CLOSE FORMAT 
ShiP = | 


TDAY = WORKD 

TMON = MONDYS 

DELETE ALL 

PACK 

CLEAR 

TOEeE = THON —sTDAY 

TSUB = TDIFF * TBILL 
REBATE = TSUB 7 TMON 
SELECI C 

USE TRANS 

APPEND BLANK 

REPLACE TTYP WITH ‘AP’ 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH TSSN 
REPLACE AMT WITH REBATE 
REPLACE PURPOSE WITH ‘MSS BILL RF OWED'® 
REPLACE DATE_PD WITH ‘CM’ 
USE 

CLEAR 

RETURN 

* END REBATE.PRG 
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TK KK RK ROKK RRO IR ROK IK ROK OR ROKK OK OK OR IK OR OR RIK OK KK KK IK KR RIK RIK OR RK RK OK ROK IK OK KOK OK 


x RECOVERY a! 
OKO OKOKOKIOK OK OKO OKO OK IOIOK IK OKO OK IOK OK OOK IKK KOK K KK KKK KKK KK KOK 


PROCEDURE RECOVERY 
SOOO OKO IK IO OK OK IOK OOK OK OK IOI OK OK IIOK OK OK OK OKI KKK IKK KK KKK KOK KK OK 


* RECOVERY. PRG *K 
* AUTHORS: LCDR J.L.TWIGG *K 
* LT M.T.MADDEN me: 
* PURPOSE: RECOVER DATABASES AFTER SYSTEM FAILURE. * 


7K KOK OK KOK ARK KK KKK KK KKK KKK OOK OKO KKK IK IK KKK IK KK IK KKK IK IK RK IK IK IKK AK RIK IK IK IK KOK OK OK OK OK 


Pee SolING: 

sea COLOR TO ,,R 

CLEAR 

a 0,0 SAY [UT-20] 

@ 10,11 TO 14,68 DOUBLE 

d 12,28 SAY [ RECOVERY IN PROGRESS ! ]} 
USE TRANS 

DELETE ALL 

PACK 

APPEND FROM A:TTRANS .DBF 
USE MEMBERS 

DELETE ALL 

PACK 

meee FROM A: TMEMBERS .DBF 
USE SETCAT 

DELETE ALL 

PACK 

aeeevD FROM A:TSEITCAT .DBF : 
USE SUMMARY 

DELETE ALL 

PACK 

APPEND FROM A: TSUMMARY 

USE INV 

DELETE ALL 

PACK 

APPEND FROM A:TINV 

CLOSE ALL 

SET COLOR TO ,,BG 

CLEAR 

Ben RECOVERY .PRG 


‘ ¢ 
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7K ROR KOK OK RK KOKO KOK ROOK KOK OR OK OR OOK OK OR OK KOK OK OK OK OK OK OK OK OK OOK OK OK OK KK OK KK OK OK OK OK KKK OK OK OK KOK OK OK 


x Mem FS * 
SOIC IOI OKOK KKK OK KKK KOK KOK KK KK KK KOK KKK OK KOK KK KOK KKK 2K KOK 


PROCEDURE REC-FS 


MK OOK OK OK ROOK OK OK KOK OK ROOK OK OK OK OK OK KOK OK OK KK OK KOK OK KOK OK OK OK OK OK KK OK OK OK KK KOK KKK KK KK KK OK OK KK KKK OK KOK OK OK 


* NAME: REC ES sr RG 
* AUTHORS: LCDR J.L.TWIGG 
x LT M.IT-.MAQDDEN 


* PURPOSE: GENERATES TOTALS FOR RECEIPTS SIDE OF THE FINANCIAL 


x STATEMENT. 


*% * ¥ KR 


2K OK OK ROK KOK ROK OK OK OK OK KK OK OK OK OK OK OK OK OK OK KK KOK OK OK OK KK OK KK KK OK KK 9K KK KK KOK OK KK 2K YOK KOK KK KK KOK KOK 


x LISTING: 

STORE 000000.00 TO TEMP? 
STORE 000000.00 TO TEMP2 
STORE 000000.00 TO TEMP3 
STORE 000000.00 TO TEMP4 
STORE 000000.00 TO TEMPS 
STORE 000000.00 TO TEMP6 
STORE 000000.00 TO TEMP7 
STORE 000000.00 TO TCASH 


SELECT A 
USE INV 
TCASH = CASH_FWD 
SELECT B 
USE TRANS 
DO WHILE .NOT. EOF(C) 
fier =) Cl" 
DO CASE 
CASE PURPOSE = ‘MESS BILL PM! 
TEMPi = TEMP! + AMT 
CASE PURPOSE = ‘MESS BILL CM’ 
TEMP2 = TEMP2 + AMT 
CASE PURPOSE = ‘MESS BILL NM' 
TEMPS = TEMPS + AMT 
CASE PURPOSE = ‘MESS SHARE' 
TEMP4 = TEMP4 + AMT 
CASE PURPOSE = ‘'COMRATS' 
TEMPS = TEMPS + AMT 
OTHERWISE 
‘TEMP6 = TEMP6 + AMT - 
FNDCASE 
ENDIF 
SKIP 1 
ENDDO 


TEMP7 = TEMPi1 + TEMP2 + TEMP3 + TEMP4 + TEMPS + TEMP6 + TCASH 
Seuccl C 

USE FININC 

REPLACE CASH_BF WITH TCASH 
REPLACE BILLS_PM WITH TEMP1 
REPLACE BILLS_CM WITH TEMP2 
REPLACE BILLS_NM WITH TEMP3 
REPLACE SHARE_SOLD WITH TEMP4 
REPLACE CR COLLECT WITH TEMPS 
REPLACE OTHER_A WITH TEMP6 
REPLACE TOTAL_REC WITH TEMP7 
CLOSE ALL 


138 


RETURN 
*END REC-FS.PRG 


rs 


SK KOK OK OK KOK OOK OK OK OK OOK OOK OOK OK OOK OK OOK KOK OK OR OK OK OOK OK OK OK OOK OOK OK OK OOK OK ROK OR OK ORO OR OR OR OK OK OK OK OK OK OK OR OK OK OK OK OR OK OK 


* RESET * 
SOKO OOK OOK KOK OKOKOK OK OKO OKO OKI IOI KKK KK KK KK KK KK KKK KOK OK OK OK 


PROCEDURE RESET 
OOK OKO KKK KOK OKO OK OK OK OK K KOKO OK OK KKK KOK KKK OKI KOKO IKK KKK KK KK KK KK OK KK OK OK OK 


* NAME : RESET. PRG * 
* AUTHORS: LCDR J.L.TWIGG x 
x LT M.T.MADDEN * 
* PURPOSE: RESETS SYSTEM TO BEGIN NEW MONTH. x 


YK OK OK OK OK OK OK OK OK OK OK OK KK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK ROOK OR OOK OK OOK OK OK OK OK OK OK OK OK K 


* LISTING: 
STORE 00000.00 TO TCASH 
STORE 000.00 TO TVAL 
CLEAR 
3d 8,10 TO 16,68 DOUBLE 
@ 10,28 SAY [RECORDS ARE BEING SET UP] 
@ 12,28 SAY [TO START THE NEW MONTH !] 
@ 14,31 SAY [PLEASE STANDBY !} 
SET CONSOLE OFF 
SELECT A 
USE FINBAL 
TCASH = CASH_OH 
DELETE ALL 
PACK 
APPEND BLANK 
SELECT B 
USE FININC 
DELETE ALL 
PACK 
APPEND BLANK 
SELECTUG 
USE SHARE 
TVAL = SHAR_VAL 
SELECT D 
USE INV 
REPLACE CASH_FWD WITH TCASH 
REPLACE VAL_FWD WITH TVAL 
REPLACE B_INV WITH E_INV 
SELECT E 
USE TRANS 
DO WHILE .NOT. EOF() : 
TF (CiTYp <> "AR™) AND. CITYE> <> Ar) 
DELETE 
PACK 
ENDIF 
IF DATE_PD = "cCM® 
REPLACE DATE_PD WITH "CF" 
ENDIF 
IF DATE_PD = "NM® 
REPLACE DATE_PD WITH "cM" 
ENDIF 
IF (DATE_PD <> "CF") .AND. (DATE_PD <> "CM") 
DELETE 
ENDIF 
SKIP 1 
ENDDO 
PACK 
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SELECT F 
Use MEMBERS 
BO WHILE .NOdee EOFC) 


DO CASE 
CASE DTOC( DETACHED) 
DELETE 
ENDCASE 
SKIP 1} 
ENDDO 
PACK 
CLEAR 
CLOSE ALL 
SET CONSOLE ON 
RETURN 


* END RESET.PRG 


SP eed 7, 


141 


KK KK KK KK KOK OK KK OK OK OK KOK KOK OK OK KKK KK AK KOK OK KKK KOK OK OK OK OK ROK IK KOK KOK OK KK OK OK OK OK OK OK OK OK OK 


x Sea -Ur * 
OKO KOKO OKOKOKOKOKOKOKOK KOK KOKO OKO OKO OKOK KK KKK KKK KKK KKK KKK KKK KK KK OK OK 2K KOK 


PROCEDURE SET-UP 
KOKORO KOKO OKO OKO OKO OOKOK KOK OKO OKO KKK KOK KOK KKK KOK KKK KK KOK KOK 


* NAME: SET=UF 2ERG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LIT M.1T -MADDEN “us 


* PURPOSE: INPUT FOR SYSTEM PARAMETERS REQUIRED FOR OPERATION. * 
OOOO OOOO OOOO KOKO OOK OK OKO KOK KK KKK KK KK KKK KKK KK KK KKK OK KKK 


* LISTING: 
STORE *" " TO ANS 
SET COLOR TO W+/B,,N 
CLEAR 
3d 0,0 SAY [UT-013] 
@ 3,4 TO 3,74 DOUBLE 
@5,5 SAY [ ] 
TEXT 
SET-UP PROGRAM 


PRIOR TO RUNNING THIS PROGRAM SEVERAL "SET-UP" VALUES 
MUST BE ESTABLISHED. THESE VALUES INCLUDE SUCH THINGS 

AS THE SHIP'S NAME, TYPE 9F MESS AND THE MANNER IN WHICH 
MEAL COSTS ARE ASSESSED. ONCE ESTABLISHED THEY ARE SAVED 
AND NEED ONLY BE MODIFIED WHEN THE SITUATION CHANGES. 


ENDTEXT 
@920,4 TO120,74 DOUBLE 
@-21410SAY [1] 
WAIT TO CONT 
CLEAR 
0,0 SAY [UT-014] 
8,21 TO 17,57 DOUBLE 
11,23 SAY [ONCE YOU PASS THIS POINT THE OLD] 
14,23 SAY [SET-UP FILE WILL BE ERASED !!!] 
18,1 SAY [ ] 
19,15.SAY [ ARE YOU SURE YOU WANT TO CHANGE-THIS FILE ? (Y,N) ] 
SET COLOR TO B/B,, 
WAIT * |* TOUANS 
SET COLOR TO W+/B,, 
IF UPPER (ANS) <> "y" 
d@ 22,28 SAY [RETURNING TO MAIN MENU !] 
WAIT TO CONT 
SET COLOR TO W+/B,,BG 
CLEAR 
RETURN 
ENDIF 
CLEAR 
ANS = tN? 
USE SETCAT 
REPLACE SET_SHARE WITH 000.00 
SET FORMAT TO STARTUP.FMT 
DO WHILE UPPER(ANS) <> 'y' 


Qs @, Gs Gs Gs A 
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Mol Re CURD: 1 
SET COLOR TO W+/R,, 
d 22,20 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
Sp. COMOR) TO BB, , 


WAIT * ' TO ANS 

SET COLOR IO W+/B,, 
ENDDO 
CLOSE FORMAT 
ANS = 'N' 


USE 
USE SETCAT 
IF UPPER(SUBSIST) = "Y" .OR. UPPER(MESS) = "E" 
CLEAR 
SET FORMAT TO STARTUP2. FMT 
DO WHILE UPPER(ANS) <> 'y' 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
@ 17,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) 
SET COLOR TO B/B.,>, 
WAIT * * TO ANS 
SET COLOR TO Wrt/B,, 
ENDDO 
CLOSE FORMAT 
ANS = 'N' 
CLEAR 
SKIP -1 
ENDIF 
IF UPPER(SUBSIST) = "N" .AND. UPPER(MESS) <> "E" 
CLEAR 
SET FORMAT TO STARTUP3.FMT 
DO WHILE UPPER(CANS) <> 'y' 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
@ 20,22 SAY [| IS THE ABOVE INPUT CORRECT? (Y/N) 
SET COLOR TO B/B,, 


WAIT ' ' TO ANS 
SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT 
ANS = 'N' 
SmoP = 1 


ENDIF 
Peer eR (MESS) <> 'E* 
ofl FORMAT TO SHR-LVL.FMT 
DO WHILE UPPERCANS) <> ‘'yY' 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
ad 17,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) 
SET COLOR TO B/B,, 


WAIT ' ' TO ANS 
SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT 
ANS =! t 
Sct P =— 1 
ENDIF 
PReUPFPERCMESs) = *E* .OR. UPPERCSUBSIST) = "N* 


SET FORMAT TO ERATION. FMT 
DO WHILE UPPERCANS) <> ‘yY' 
EDED RECORD 1 
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] 


] 


] 


SET COLOR TO W+t/R,, 
d 16,2205h. 


SET COLOR TO B/B,, 


WAIT 
SET COLOR TO Wt/B,, 


ENDDO 


TO ANS 


CLOSE FORMAT 


ENDEE 
SKE 1 
DO CASE 


CASE MESS 
REPLACE 
REPLACE 

CASE MESS 
REPLACE 
REPLACE 

CASE MESS 
REPLACE 
REPLACE 

CASE MESS 
REPLACE 
REPLACE 

CASE MESS 
REPLACE 
REPLACE 


ENDCASE 


fA? 
TMESS With 


REQ_CAT WITH 


"Rt 
BME SS WL er 


REQ_CAT WITH 


el gen 
TIMES sS Swi 


REG -CA”. WITH 


"Dp? 
THESS #0 ie 


REQ_CAT WITH 


i aad 
TMESsS WITH 


SET COLOR TO W+/B,,BG 


CLEAR 


d 10,7171 TO 14,68 DOUBLE 
SET COLOR TO W+t/R,, 


ad 12,27 SAY [ 


SET COLOR TO Wt /B,, 


d@ 16,1 SAY 


WAIT TO CONT 


CLEAR 

CLOSE ALL 
RETURN 

FEN Do bl =U 


] 


IS THE ABOVE INPUT CORREG@: 


FLAG OFFICER” 
‘95° 


COMMANDING OFFICER’ 
‘'OYW* 


UNIT COMMANDER' 
'Oo6'! 


WARDROOM' 
193! 


hCHIEF SPETTY ,OPErlCrns. 
REQ_CAT WITH 


'92! 


SETUP PROGRAM IS COMPLETE! |] 
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CY/N) 


J 


DKK AK OK KK KOK KOK OK OKO OK KOK KOK KOK OK KCK KOKO KOK KOKO OK IK IKK KK IKK KOK ROK KKK KOKO KO OK OK 


* SHARE-FS = 
KK KOK OK OK OK OK OK OK KK OK OK OK OK OK OK OK OK KOK OK KOK KOK KK OK OK OK OK KKK OK OK KK KOK OK KK OK KK OK OK KK KKK OK KK KK 


PROCEDURE SHARE-FS 
OKO OOK OOK OKOKOOKOKOK KOK OOK KOK OK OKOKOK OK KOKO OK OK KKK OK OK OK OK KK KKK KKK KK KK KKK KK 2K OK 
* NAME: SHARE-FS .PRG 

* AUTHORS: LCDR J.L.TWIGG 

* Lt MoE MADDEN 

* PURPOSE: OUTPUT FORMAT FOR MESS SHARE AND PROVISIONS 
* 


CONSUMED STATEMENTS. 
OOK OOOO IKK OIOOK OKO OOOO OK OK OOK OK OKO K OK KKK KKK KKK OK KK KK 


ee ee 


eeLUSTING : 
USE SHARE 

d 1, 10 SAY "MESS SHARE? 

d 1, 40 SAY'PROVIS IONS CONSUMED! 
mueepe1O)6SAY 8 OUU—“—CSCSC—sSB 

mee 40) |6CSAY i (—“‘ ‘Ct 
d 4, 4 SAY "NET WORTH" 

d 4, 24 SAY SHARE~>WORTH 

USE INV 

3d 4, 41 SAY 'INVENTORY END OF’ 

@ 5, 41 SAY 'PREVIOUS MONTH’ 

@ 5, 65 SAY INV->B_INV 

USE SHARE 

a2 6, 4 SAY "NUMBER OF MEMBERS" 

3 6, 29 SAY SHARE->NUM_MBR 

iwe7s 24 =#SAY " " 

USE INV 

@ 7, 41 SAY 'PROVISIONS RECEIVED! 

3 7, 65 SAY INV->RECPT 


USE SHARE 

d9, 4 SAY “CURRENT VALUE OF" 
aoe +1 SAY "INVENTORY END OF‘ 
gaei107;4 SAY “MESS SHARE" 

d 10, 27 SAY SHARE->SHAR_VAL 
USE INV 

d 10, 41 SAY ‘CURRENT MONTH' 

d@ 10, 65 SAY INV->E_INV 


USE SHARE 

d 12, 4 SAY “MESS SHARE END OF" 

Hie, OS SAY * = : 
d 13, 4 SAY "PREVIOUS MONTH" 

d 13, 27 SAY SHARE->PRE_SHAR 

d 14, 24 SAY " us 

d 14, 41 SAY ‘PROVISIONS CONSUMED' 

ot INV 

d 14, 65 SAY INV->PCONSUMED 

USE SHARE 





d 15, 4 SAY "CHANGE IN SHARE" 

d 16, 4 Seay FROM LAST MONTH" 

SOs. 27 §oAar SHARE->INC_DEC 

d 17, 4 Say ™ ° 

d 17, 41 SAY ' : 
d 18, 4 SAY " fe 
doo 41 SAY ° ; 
CLOSE ALL 

RETURN 
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a. 


END 


SHRARE-FS<2kG6 








KK OK KKK KK KK OK KK KK KOK OK KK KOK KK OK OK KOK OK OK KK KKK KK KKK IR KK ORO KOKO RK OR ROK ROK OK ROR OK 


as SHBILL a 
OKO OCKOOOKOKOKOOOK IOI ICICI KIKI CII IOI IKK KKK KK KK KK OK 


PROCEDURE SHBILL 
OCC OOIOKOKCIOROK OKO IO ICIOK ICICI ICICI ICI IOI II CII K ACK KK ACK 


* NAME: SHBILL.PRG a 
* AUTHORS: LCDR J.L.TWIGG a 
* Ee M.I.MADDEN a 
*X PURPOSE: SCREEN FOR DEPARTING MEMBER BILL. 4 


KK KK KK KKK KKK KK KK KKK OK KK OK OK KK OK KKK KK OK KKK KK KK KK KKK OK KKK OKI CKK IKK KK IKK IK KOK OK OK OK 


14, 27 TO 14, 52 
END SHBILL.PRG 


sSLESTING: 

d 3, 24 SAY "ENTER THE SOCIAL SECURITY NUMBER” 
seo 2?) SAY "OF THE DEPARTING MEMBER !" 
Smee «GET SMEMBERS->SSN 

Heiceeol SAY "MEMBER INFORMATION" 

d 16, 23 SAY MEMBERS~>RANK 

@ 16, 29 SAY MEMBERS->NAME 

@ 18, 23 SAY "MESS SHARE REFUND DUE:" 

dad 18, 51 SAY MEMBERS->SHAREOUT 

eee 23 SAY “NET MESS BILL REFUND/DUE:" 
d 20, 51 SAY MEMBERS->BILL_OUT 

fies 19 TO 9§, 59 DOUBLE 

emi 19 TO 22, 59 DOUBLE 

a 

* 
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*_OKOK KOKOKOK KOK OK KKK KOK KKK 9K 9K KK KK OK KK KOK IKK OIK IK IK OK KKK AK KK IK KOK OK KOK OK IK KOK OK AK OK KOK OK OK OK 


* SPEC-AS x 
OOOO OKOKOK OK OK OK KOKO KOKO OK KOK KOK OK KOK OK OK KK OK KKK KOK RK KKK ACK 


PROCEDURE SPEC-AS 
OOK OKO OKOKOK OOK KOK OK KOK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK OK 2K KK KK KK KOK OK 


* NAME: SPEC-AS .PRG * 
*X AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN * 
* PURPOSE: TO CHARGE AN ASSESMENT FOR NON-RECURRING EVENTS. * 


KOKOKOKOK OK OK OK OK KK KK KKK KK KK 2K KK KK KK KK KK KK KK KK KK 9K KK 2K KK KK 2K KKK OK KK OK KOK OK KOK OK OK 2K OK 


* LISTING: 

CLEAR 

STORE 000000.00 TO TSHAR 

STORE 000000.00 TO TSET 

STORE 000000.00 TO TSPEC 

STORE ° * TO ANS 

STORE SPACE (20) TO NAME 

STORES DATE () TOeMUALE 

SELECT 5 

USE SHARE 

TSHAR = SHAR_VAL 

SELECT eC 

USE SETCAT 

TSE? == SETZSCHARE 

IF (TSET > TSHAR) .AND. (MESS <> = 3Ee@ 
TSPEC = TSET = TSHAR 


ELSE 
TS PEC e= 00 
END GE 
REPLACE SPEC_ASS WITH TSPEC 
ANS = ‘N' 
IF (METHOD = 'A’) .AND. (SUBSIST <> ‘Y’) .AND. (MESS <> "E*) 


SET FORMAT TO REC-MBIL.FNMT 
DO WHILE UPPERC(ANS) <> *Y' 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
d@ 20,21 SAY [{ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 


WAIT * * TO ANS 
SET COLOR TO W+/B,, 
ENDDO , 


ELSE 
DO WHILE UPPER (ANS co 
SET FORMAT TO SPEC-BA.FMT 
EDIT RECORD 1 
SET COLOR TO W+/R,, 
@ 16,22 SAY { IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 


WAIT ° * TO ANS 
SET COLOR TO W+/B,, 
Sih ei 


TSPEC = SPECUASS 
CLOSE FORMAT 
ENDDO 

ENDIF 

SET COLOR TO W+t/R,, 

CLEAR 
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fieo,r io TO 12,62 DOUBLE 
EmelovoO SAY { PLEASE STAND BY ! | 
meetSPEC <> 0 
SELECT D 
USE MEMBERS 
DO WHILE .NOT. EOF(C) 
PEeotATUS = “M"* 
TNAME = SSN 
SeLECT £ 
USE TRANS 
APPEND BLANK 
BErFLACE ITYP WITH ‘AR‘ 
REPLACE DATE_IN WITH MDATE 
REPLACE NAME WITH TNAME 
REPLACE AMT WITH TSPEC 
Per LACE PURPOSE WITH ‘SPECIAL ASSES' 
REPLACE DATE_PD WITH ‘CM’ 
SELECT D 
Steer 1 
ELSE 
SEP 1 
ENDIF 
ENDDO 
ENDIF 
CLOSE ALL 
Son COLOR TO Wt/B,, 
CLEAR 
RETURN 
SEND SPEC-AS .PRG 
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KOK OK KOK KOK OK OKOK OK KOK OK KK OK KK KKK KK KKK KK KKK KOK KK IK 2K 2K IK IK IKK IR IK KK KOK KK KOK RK OK OK 


* SRIDER x 
OKO OK KOKO OK KOKO KOKO KOKORO OKOK OK OKOK OOOO OOK OK KOK OK UK KK OK OK OKO OK KOK KOK KOK KOK OK 


PROCEDURE SRIDER 
OKO OOK KCK OOK OKO OKO IKK IG OK ROKK OK OK KOKO OKO OKO KKK KKK KOK 
* NAME: SREDER FRG 
AUTHORS: LCDR J.L.TWIGG 

LT M.T.MADDEN 
PURPOSE: TO PREPARE MESS BILLS FOR NON-MEMBERS EATING IN 


* 
XK 
* 
xX 


MESS SUCH AS TECHREPS. 


me Maree x% 


KOK KOK OK OK OK OK OK KOK KOK OK KK KOK KOK KKK KOK KK KK KK IK KK KK IK IKK OK KOK OK KKK KKK IK OK OK IK KK ROKK OK IK OK KOK OK OK 


FES ENG: 


CLEAR 
S EGRE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 


DATE ¢ 


) TO MDATE 


20s CHOLCE 
* * TO ANS 


SPACE 
SPACE 
OG. 00 
00.00 
O95 19). 
OO. 00 


(20) TO TNAME 
(9) TO TSSN 
TO BEST 

EG ECOsTt 

TO DCOST 

TO HCOST 


STORES COCO 0OeTO BILE_TTL 
STORE 2000.00 TO -BITL 
STORE2U0G.00)TOSLETE 
STORE 000.00 TO DITE 
Steno U00 00 TO HItt 
STORE, O00.00 TO TDUE 


CHOMEE =~ °yY- 

DO WHILE UPPERCCHOICE) = *yY' 
ANS = ‘N' 

TNAME = § : 


TSSN = ° : 
TDUE = 000.00 
DO WHEEE, UPPERICANS ) <> >*y"* 
@ 0,0 SAY [TR-014 ] 
d 6,3 TO 15,75 DOUBLE 
SET COLOR TO W+t/R 


d@ 10,12 SAY [ ENTER THE SOCIAL SECURITY NUMBER FOR THE RIDER: J)Gee 
TSSN PICTURE [*3Gg@co0cc ] 

‘dd 13,16 SAY [ ENTER THE NAME OF THE RIDER: ] GET TNAME PICTURE 
De eae tet ae 

READ 


ad 45,22 SAY [ IS THE ABOVE INPUT CORRECT 2 S@7 pe) 
SET COLOR TO B/B,, 


WAIT * * TO ANS 
SET COLOR TO W+/B,, 
CLEAK 
ENDDO 

SELECT A 

USE. SEEBGAE 

BCOST = B_COST 

LCOST = L_COST 

DCOST = S_COST 

HCOST = H_COST 

SELECT B 
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USE MEALS 

ANS = ‘N* 

CLEAR 

SET COLOR TO W+/B,,BG 

Sec FORMAT TO MEALS<-FT.FMT 

APPEND BLANK 

REPLACE MNAME WITH TNAME 

Demwitie UPPERCANS) <> ‘yY'* 
EDIT RECORD 1 
sEr COLOR IO W+/K,, 
@m@ea,!1S SAY {| IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/E;,, 


WAIT °* * TO ANS 
CLEAR 
SET COLOR TO W+/B,, 
ENDDO 
CLOSE FORMAT 
CLEAR 
Soe | 
Bilal = BCOST * BR_CT 
fae = LEOST * LU_CT 
tree = DCOST * DI_CT 
ferG = HCOST * HO_CT 
ferro - BITL + LITL + DITL + HTTL 
DELETE ALL 
PACK 
freeeeol TTL > 0.00 
SeeeCcT C 


USE MEMBERS 
LOCATE FOR SSN = TSSN 
IF FOUND() 
SELECT D 
USE TRANS 
BO WHILE .NOT. EOF(C) 
IF NAME = TSSN 


DO CASE 
CASE stay P => tAR* 
TDUE = TDUE + AMT 
CASE, TIYP = “AP* 
TDUE = TDUE - AMT 
ENDCASE 
ENDLE 
SetP 1 
ENDDO 
SELECT C 


REPLACE BILL_OUT WITH TDUE + BILL_TTL 
ELSE 
APPEND BLANK 
REPLACE NAME WITH TNAME 
REPLACE SSN WITH TSSN 
REPLACE BILL_OUT WITH BILL_TTL 
REPLACE SHAREOUT WITH 0.00 
REPLACE STATUS WITH 'R' 
ENDIF 
CLEAR 
d 8,10 TO 12,68 DOUBLE 
SET COLOR TO W+/R,, 
‘'@ 10,25 SAY [ CHECK TO ENSURE PRINTER IS ON ! ] 
SET COLOR TO W+/B,, 
dad 14,1 SAY [ ] 
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WAIT TO 
CLEAR 


CONT 


SET DEVICE TO @PRINT 


DC ADET- 


EJECT 


MBR 


SET DEVICE TO SCREEN 


SELECT D 


USE TRANS 
APPEND BLANK 


REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 

ENDIF 

CLOSE ALL 

CLEAR 


TIYPSWLlTH: “Are 

DATE_IN WITH MDATE 

NAME WITH TSSN 

AMT “WiTA BSL Ea EEL 
PURPOSE SWEiie MESS fran. 
DATE_PD WITH ‘CM' 


78,12 20 12,62 DOUBLE 

SET COLOR TO W+/R,, 

d0 10,15 SAY [ DO YOU WISH TO CALCULATE ANOTHER BILL? 
Sea, COLOR TOSBZE,, 

WATT "=" 70 CHoOmTcE 

SET COLOR TO W+/B,, 


CLEAR 
ENDDO 
CLEAR 
RETURN 


* END SRIDER.PRG 
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CV ZN@ 


] 


KK NOK IK KK OK OK OK OK OK OK OK OK OK OK OK OK IK OK OK OK OK OK OK OK OK OK OK OK OK OK IK OK IK IR IK KK OK IK ROK IK KOK OK IK OR IK IR ROKK KOK OK OR OK 


* SUG=ES * 
2K OK OK KK OK OK OK 2K OK OK 2K OK OK OK KOK KOK OK OK OK OK OK OK OK OK OK OK KOK OK KOO OK IK OK OK IK OK KK OK IKK KKK AK OK OK OK OK KOK OK OK OK 


PROCEDURE SUG-FS 
KKK KOO OKOKOK OOK OOK KOKO OK KOK OK OKO OKO OKO OKI KKK OKO KKK KKK KK KK KK 2K 


“ NAME: SUG=FS PRG 4 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN * 
Seer OSE: PRINTS SUGGESTED MESS BILL. = 


YK KK OK OK OK KK OK OK KK OK OK OK OK OK OK OK KK KOK KOK KK KOK OK OK IKK OK OK OK IKK OK IKK IK IK IKK IK IK IK IK IK IK KK OK IK KOK OK KOK OK OK OK OK 


K LISTING: 

fee 2, 10 SAY * 
Saeoo 14 SAY™FRECOMMENDED MESS BILL FOR NEXT MONTH -->>" 
@» 5, 57 SAY SETCAT~>SUG_BILL 

@ 9, 17 SAY "RECOMMENDED MEAL PRICES FOR MEALS SOLD FOR" 
d 10, 17 SAY "CASH DURING THE NEXT MONTH:" 

mies 2/7 SAY “BREAKFAST” 

d 12, 44 SAY SETCAT->B_COST 

d 14, 27 SAY "LUNCH" 

a 14, 44 SAY SETCAT->L_COST 

Bla, 27 SAY "DINNER" 

d 16, 44 SAY SETCAT->S_COST 

3018, 27 SAY "HOLIDAY MEAL" 

d 18, 44 SAY SETCAT->H_COST 

pee2z0, 10 SAY * 

“EMS SUG-FS .PRG 
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OK KOK KOK KKK KK KOK KKK OK OK KOK KOK KOK OK KOK OK OK OK KOK OK OK MK OK KK KK KK KK KK KKM KK KKK KKK KKK 


* TITLE * 
KOK KOK KK KK KK KKK KK KK KKK KK KK OK KOK KOK KOK KOK KKK OK OK OK OK OK KK KK KK KK KK KK MK KK KK KK 


PROCEDURE TITLE 
OK KK KK KK KK KKK KK KK KKK KKK KK KK KKK KKK KKK KK KKK KKK 2K KKK 2K 9K KOK 2K 9K KK IK KKK OK OK KOK OK 


* NAME: Peto. ao * 
* AUTHORS: LCDR J.L.TWIGG x 
x LT M.T.MADDEN * 
* PURPOSE: PRINT HEADINGS FOR FINANCIAL STATEMENTS. * 


KOK KK KK KOK KK KK KKK KKK KOK KKK KK OK KK KK OK OK OK KK OK OK OK KOK OK OK KOK OK OK OK OK OK KK KK KK KK KK KKK KK HK 


* LISTING: 
STORE 00 TO CENTER 
USE SETCAT 
CENTER = 40 - CINTCCLENC(CTRIM(NAME)) + 4) 7 2)) 
1, 25 SAY SETCGAT— i272 ITE 
2» CENTER SAYeoUSSe~ 
2, (CENTER + 4) SAY SETCAT->NAME 
4, 30 SAY SETCAT<->TMESS 
5, 3S SAY MESS. 
ENTER = 40 - CINTCCLENC(TRIMCEOM)) + 15) 7 2)) 
6, CENTER SAY “MONTH ENDING:" 
6, (CENTER + 14) SAY SETCAT->EOM 
7 VO>=SAY a 
END TITLE. PRG 


%¥ @ @ @ OQ @ Os @ A 
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ee pe ee SSS SS Ss i 


2K OK ROR ROR ROR ORR OKO OK ROK ROR OR KK OOK OKI ROKK FR KOK ROK KOIKE OK OK KIKI ROKK IK AR OK OK KOK KOK ROKK OK OK OK OK OK OK 


x 


TRANCOL 


x 


TK KOK KK OOK KR KKK KK AK KOK KK AK IK KKK RK KKK KCK KCK CK CKO KCK CKO OKO AR IK CIK KOK OKO IK OK OK 


PROCEDURE TRANCOL 
SOK COOK CK COOK AOKI OKO KOO OKO KKK KKK KK KK KK KKK OK 


* NAME: 


* AUTHORS: LCDR 


x 


Diet. 


ZeURPOSE: MENU 
SOKO ICICI CICK ICICI IIOK CKO IKK OK IOI AKIKO KK KOK KOK 


* LISTING: 


CLEAR 
>1 ORE 


Q@ @ @& @& @& @& @ @ @& & AB A, 


TRANCOL. PRG 


J.L.TWIGG 
T.MADDEN 
DRIVER FOR THE CASH COLLECTION SERIES. 


20) CHOLCE 
DO WHILE .T. 
0,0 SAY [M-023] 


2,4 TO 16, 


Tee DOUBLE 


3,28 SAY [CASH COLLECTION OPTIONS ] 


4,26 TO 4, 


52 DOUBLE 


7,23 SAY [SELECTION CODE) 


6,25 TO 8, 
6,55 TO &, 


10,20 SAY 
11,20 SAY 
2520 .SAY 
14,20 SAY 
17> SAY [ 


WAIT ' 


DO CASE 
CASE CHOICE = ‘1° 
DO PAYBILL 
CASE CHOICE = ‘2! 
DO PAYCR 
CASE CHOICE = ‘3° 

DO PAYOTHER 
CASE CHOICE = ‘4! 

CLEAR 

RETURN 
OTHERWISE 


CLEAR 


32 

58 

[CASH RECEIVED FROM MEMBERS/USERS --- 1] 

[CASH RECEIVED FROM COMRATS PAYMENT - 2] 

[CASH RECEIVED FOR OTHER REASONS ---- 3] 

PReETURNe toe nee OoUS MENU --——==-------— 4] 
J 


ENTER YOUR SELECTION CODE: ‘' TO CHOICE 


‘ad 8,21 TO 17,57 DOUBLE . 

@ 11,23 SAY [YOUR CHOICE IS NOT ON THE MENU!! ] 
d 14,23 SAY [PLEASE MAKE ANOTHER SELECTION... ] 
d 18,1 SAY [ ] 

WAIT TO CONT 


CLEAR 
LOOP 


ENDCASE 


ENDDO 


P55 


x 
x 
x 
x 


KOK KK OK KK KK KK KK KKK OK OK IKK IK IKK KOK KK KK IK IK KOK OK IK IK IK IK IKK IK OK OK IK IK IK IKK IK KOK IK OKO IK KOK OK OK OK 


oe TRANEXP * 
ROKK OKO OK OKOKOOKOKOKOKOK OKO OKOKOK KOK OKOKOOK IKK KOK IKK KKK KK KK KOK KK OK 


PROCEDURE TRANEXP 
OROKOK ROKK KOKORO GKOKOK OOK OKOOK OK OKO OKO OK OK III IKK KKK KK KKK 2K KK OK 


* NAME : TRANEXP. PRG * 
X AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN * 
* PURPOSE: MENU DRIVER FOR CASH DISBURSMENT SERIES. * 


KOK KOK KK KK KOK OK KKK KKK KOK KK OK KKK KK OK KOK OK OK IK OK IK IK OR IK IK IK OK OR OK IK IK OK OR IK ROKK KORO OK KORO OOK OK OK AKO OK 


* LISTING: 

CLEAR 

STORE ' ' TO CHOICE 

DO WHILE .T. 

0,0 SAY [M-024] 

2,4 TO 17;,75-DOUBLE 

3,28 SAY [POST PAYMENT FOR: ] 

4,26 TO 4,52 DOUBLE 

7,23 SAY {SELECTION CODE ] 
8,23 TO 8.22 

8,55 TO 8,58 

10,20 SAY [PROVISIONS BILL FROM FSO ----------- 4) 
11,20 SAY [PROVISIONS BILL FROM A VENDOR ------ 2] 
12,20 SAY [MEALS PURCHASED FROM FSO ----------- 3] 
13,20 SAY [OTHER EXPENDITURES ----------------- 4] 
16,20 SAY [RETURN TO PREVIOUS MENU ------------ 5] 
T8pt- SAY fa 

WAIT ! ENTER YOUR SELECTION CODE: ' TO CHOICE 


Qs @» Gs @s Gs Qs Gs Gy Gs» Gs Gs Gs Gy 


DO CASE 
CASE CHOICE = '"1' 
DO EXPROVFS 
CASE CHOICE = '2' 
DO EXPROVED 
CASE CHOICE = '3' 
DO EXMEAL 
CASE CHOICE = ‘4’? 
DO EXOTHER 
CASE CHOICE = '5' 
CLEAR 
‘ RETURN . 
OTHERWISE 
CLEAR 
d 8,21 TO 17,57 DOUBLE 
d 11,23 SAY [YOUR CHOICE IS NOT ON THE MENU!! ] 
3d 14,23 SAY [PLEASE MAKE ANOTHER SELECTION... ] 
a* 18,1 SAY [| } 
WAIT TO CONT 
CLEAR 
LOOP 
ENDCASE 
ENDDO 
* END TRANEXP.PRG 
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2K KK ROK ROOK OR KK KOK OOK OR OK OK OR OR OR IK OK KOKORO OK KK IK KO OK OR OK IKK KK KK IK OK IK KK OR OR OK RR OR OK OK OR OK OK OK OK OK 


* TRANPAY * 
KKK KKK OK KKK OK OK OK KK KK OK OK OK KK OK OK KK OK OK OK OK OK OK OK OK KOK OK KK OK KK KKK KK KKK KKK KK KK KKK 


PROCEDURE TRANPAY 
OOK OOK OKO OOK OOK OOK KOK OOK IK OOKOK OKO IO OKIOOK OOK OKO OOK OOK KKK KKK KKK KKK KKK KK 


* NAME: TRANPAY . PRG a 
* AUTHORS: LCDR J.L.TWIGG * 
x LT M.T.MADDEN “s 
* PURPOSE: USED TO RECORD AMOUNTS OWED BY THE MESS. *x 


2K OR OR OR OK OK OK OK OK OR ORK IK RK OR OR OR RK OK IK OK IK OK OK OK OK OK OK IK OK OK IK OK OK OK KK IK OK OK OK OK OK IK OK OK OK OK OK OK KOK OK OK OK OK KK OK OK OK OK OK 


SeLISTING: 
CLEAR 
SrORE * a OwGecAT 
SrerkeE * * TO ANS 
Suoee *‘ * TO CHOICE 
STORE DATE() TO TDATE 
oem: © © TO PICK 
CrmomceE = ‘yY' 
DO WHILE UPPER(CHOICE) = ‘y' 
ANS = '‘'N'! 
SELECT A 
USE TRANS 


APPEND BLANK 

DO WHILE UPPER(CANS) <> ‘Y' 

DO WHILE UPPER(CANS) <> ‘yY' 
SET FORMAT TO APAY-IP.FMT 
EDIT 
SET COLOR TO W+t/R,, 

@ 19,22 SAY [ IS THE ABOVE INPUT CORECT? (Y/N) ] 
SET COLOR TO B/B,, 

WAIT ' * TO ANS 

Ser COLOR TO W+/E,, 

CLOSE FORMAT 


SniP —1 
ENDDO 
CLEAR 
DO CASE 
CASE PURPOSE = ‘A'* 
ANS = ‘'N'! 
REPLACE PURPOSE WITH ‘PROV FSO OWED' 
. SELECT B : 


USE SETCAT 

TCAT = REQ_CAT 

SELECT A 

DO WHILE UPPERCANS) <> 'Y' 

REPLACE REQ_NUM WITH ‘'000000' 

Sede eORMAL IO CPAY=<1P.FMT 

EDIT 

SET COLOR TO W+/R,, 

d@ 15,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 


WAIT * * TO ANS 
SET COLOR TO W+/B,, 
Sir. =) 


REPLACE REQ_NUM WITH (TCAT - TRIMCREQ_NUM) ) 
CLOSE FORMAT 
ENDDO 


: S74 


CASE PURPOSE =) 5 
REPLACE PURPOSE WITH ‘PROV VENDORSOWED. 
CASE PURPOSE = '‘'C'° 
DO WHILE UPEERCEIC ey. 
REPLACE PURPOSE WITH ' : 
SET FORMAT TO BPAY-IP.FNI 
EDI 
SE. COLOR LO .Wtk-., 
@ 11,22 SAY [ IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SET COLOR TO B/B,, 
WAIT * ' TO PICK 
SET COLOR TO W+/B,, 
CLOSE FORMAT 
Sire r 4 
ENDDO 
PICK =. N' 
OTHERWISE 
CLEAR 
oe &,21 TO 17,57 DOUBLE 
@d 11,23 SAY [ YOUR CHOICE IS NOT ON THE MENU! ] 
a@ 14,23 SAY [ PLEASE SELECT CHOECE Ay eeoRnec 
@ 18,1 SAY [ ] 
WAIT TO CONT 
CLEAR 
ANS = 'N! 
ENDCASE 
ENDDO 
REPLACE TIITYP WITH ‘AP’ 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH 'CM' 
CLOSE ALL 
CLEAR 
@ $,5 10 12,73 DOUBLE 
SET COLOR TO Wt+/R 
@ 10,9 SAY [ DO YOU DESIRE TO MAKE ANOTHER ACCOUNT PAYABLE ENTRY? (Y/N) ] 
SET COLOR TO B/B,, 


WAIT * * TORGHOTICE 
SET COLOR TO W+/B,, 
ENDDO 
CLEAR 
RETURN 


* END TRANPAY.PRG 
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2K KOK OK KOK OK OK OOK OK KK OK OK KOK 2K KOK IK IK ROOK OR OK KOK IK KOK ROKR OK KOK IK AK AK ROOK AK KOK IK AK KORO FR AR KOR RK ROOK OK OR OK OK 


x TRANREC ns 
OKO OOK OOK OK KOK OK OK IOKOK KOK OKOK OK IK OK OKO OK KOK OK KOKI OKO KKK KKK KKK KKK 


PROCEDURE TRANREC 
OOOO OOK OKOK KOKO OOK OKOKOK OK OKOK OKO OK OOK OK OKO OKO OKO KKK KKK KK KK IK 2K DK 
* NAME: TRANREC.PRG 

*X AUTHORS: LCDR J.L.TWIGG 

* LT MN.T.MADDEN 

* PURPOSE: RECORD AMOUNTS OWED TO THE MESS OTHER THAN 
* 


MESs SIlLLS . 
KOKO KOK OOO KOKO KOIKE KKK KK KK KKK KK KK KOK 


% MM HM X 


K LISTING: 

CLEAR 

SEokE * ° TO ANS 

seore © ' TO CHOICE 

STORE DATE() TO TDATE 

fHoscr = *yY' 

WOewitLE UPPER(CHOICE) = ‘*y’ 
ANS = 'N' 
SELECT A 
USE TRANS 


APPEND BLANK 
Dewi DLE UPPERCANS) <> ‘*Yy’ 
SET FORMAT TO AREC-IP.FMT 
EDIT 
SE? COLOR TO W+t7kK,,; 
d 16,24 SAY { IS THE ABOVE INPUT CORRECT? (Y/N) ] 
SEL COLOR TO B/B;,, 
WAIT °' * TO ANS 
SET COLOR TO W+/B,, 
CLOSE FORMAT 
ENDDO 
Sacre —1 
REPLACE TTYP WITH ‘AR’ 
REPLACE DATE_IN WITH TDATE 
REPLACE DATE_PD WITH ‘CM’ 
CLOSE ALL 
CLEAR 
¢ 8,5 TO 12,73 DOUBLE 
SET COLOR TO W+/R,, 
@ 10,8 SAY [ DO YOU DESIRE TO MAKE ANOTHER ACCOUNT RECEIVABLE ENTRY? 


SET COLOR TO B/B,, 


wet) ©) tO CHOICE 
SET COLOR TO W+/B,, 
ENDDO 
CLEAR 
RETURN 


x END TRANREC. PRG 
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or 7 ND 


KKK KKK KOK OK OK OK KK OK KOK OK OK OK OOK OOK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OOK OK ORO OR OK OR OR OK OK OK OR OOK OK OK OR OK OK OK OK OK OK 


x TRANT * 
OOK OOK KOK OK KOK OK K KKK KOKI OK IKK KOKO OK IK KIKI KKK KKK OK KK KKK KKK IKK KOK OK OK OK 


PROCEDURE TRANT 
OKO OKO OK OKO KOKO OKO OKO GOKOK KOK OK OKO OKOK IK KOK KKK KOK KIKI KOK KK KKK IKK KKK KKK KOK 2K OK OK 


* NAME: TRANT. PRG * 
* AUTHORS: LCDR J.L.TWIGG * 
* LT M.T.MADDEN * 
* PURPOSE: MAIN MENU DRIVER FOR TRANSACTION SERIES. * 


KK KK OK KK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK IK IK IK IK OK IK IK OK IK OK OK OK AK AK IK AK IK IK IK OK OK OK OK OK OK OK OK OK OK OK OK 


* LISTING : 

CLEAR 

STORE. ” ™ TOSCHOICE 
DO WHILE .T. 


ad 0,0 SAY [M-02] 
a 2,4 TO 21,75, DOUBEE 
d 3,28 SAY [TRANSACTION INPUT MENU] 
d 4,26 TO 4,52 DOUBLE 
@ 7,23 SAY [SELECTION CODE ] 
« 8,23 TORE, sz 
308,54 TO 8,57 
a 10,20 SAY [RECORD AMOUNTS DUE THE MESS -err-"--- 1] 
d 11,20 SAY [RECORD AMOUNTS OWED BY THE MESS --- 2] 
@ 13,20 SAY [POST CASH COLLECTIONS ere-eer2r"----- 3] 
@ 14,20 SAY [POST CASH EXPENDITURES erree------- 4 | 
@d 16,20 SAY [ADD 7 DELETE MEMBERS ercrersererere--- §\) 
ad 17,20 SAY [PREPARE SHIP-RIDER BILL eererrere----- 6 ] 
@ 19,20 SAY [RETURN TO MAIN MENU 2377-33-32 ------- 7A 
@ 22,1 SAY [ ] 
WALT: Enter your selection code: ™ to choice 
DO CASE 


CASE VCHOICES=5 7 1" 
DO TRANREC 
CASE -CHOZCE> =" "2" 
DO TRANPAY 
CASE CHOTCE=—""s” 
DO TRANCOL 
CASE CHOICE = "4" 
DO TRANEXP 
CASE CHOZGE.- "5" 
‘DO TRNMBR 2 
CASE GHOICE =—"6" 
DO SRIDER 
CASE CHOICE = "7" 
CLEAR 
RETURN 
OTHERWISE 
SET COLOR TO GR+.’B,,R 
CLEAR 
d'°8,21 TO 17,S57200UBLE 
ad 11,23 SAY [YOUR CHOICE IS NOT ON THeEeiLie 
ad 14,23 SAY [ PLEASE MAKE ANOTHER SELECTION! ] 
@2 18,1 SAY [ ] 
WAIT TO CONT 
SET COLOR TO W/B,GR+/R,BG 
CLEAR 
LOVE 
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ENDCASE 
ENDDO 
XEND TRANT.PRG 
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el. 


AK OK OK OK KOK OK OOK OK IK OK OK OK OK OK OK OK OR ROK IK OK OK OK OK OK KOK IK IK IR IK OK OK OK OK OK IK OK IK IK IK OK OK OK OK OK OK IK OK OK OK IK OK OK OK OK OK OK OK 


* TRIAL % 
SOKIOK OKO OKI OKK OKO OKOK OKO OKO OK KOK KOK OKO OK KOK KKK KKK KOK KOK KOK 


PROCEDURE TRIAL 
OOK OIOIOOK OK IORI OK OK IOK OOK IO OOK KOOKS ICO KOK OK OK KKK KKK OK 


* NAME: TRIAL.PRG * 
*X AUTHORS: LCDR J.L.TWIGG * 
XK LT M.T.MADDEN * 
* PURPOSE: USED TO RUN TRAIL FINANCIAL STATEMENTS TO VERIFY * 
“i ACCURACY PRIOR TO SMOOTH FINAL STATEMENTS. * 


MK OK OK OK OK OK KOK OK OK OK OK OK IK ROK OK IK KR OK OK OK IK AK OK OK IK OK OK AIK OK OK OK OK OK IK OK OK KOK OK OK OK OK IK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


* LISTING: 
CLEAR 
STORE ' ' TO CHOICE 
DO VER-TRL 
SET COLOR TO Wt/R,, 
@ 20,22 SAY [ DO YOU WISH TO CONTINUE? (Y/N) j 
SET COLOR TO B/B,, 
WAIT "3° TO CHOmTCE 
SET COLOR TO W+/B,, 
IF UPPER(CHOICE) = 'y' 
CLEAR 
2 8,10 TO 16,68 DOUBLE 
0 10,19 SAY [ A TRIAL BALANCE SET OF FINANCIAL REPORTS ] 
@ 12,29 SAY [ IS BEING PREPARED ! } 
ad 14,30 SAY [ PLEASE STANDBY ! ] 
STORE 000000.00 TO TSBILL 
STORE 00.00 TO TS_BP 
STORE 00.00 TO TS_LP 
STORE 00.00 TO TS_SP 
STORE 00.00 TO TS_HP 


STORE ° * TO REASON 
REASON = ‘M' 

STORE (= = LOVANS 
SELECT A 


USE FINBAL 

DELETE ALL 

PACK 

APPEND BLANK 
SELECT B 

USE *FININC 

DELETE ALL 

PACK 

APPEND BLANK 
SELECT C 

USE TRANS 

APPEND BLANK 
REPLACE NAME WITH "START TRIAL BALANCE" 
USE 

SELECT E 

USE MSSELLE 
DELETE ALL 

PACK 

SELECT D 

USE SETCAT 
REPLACE EOM WITH '*X* TRIAL BALANCE *xX'* 
TSBILL = SUG_EILL 
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TS_BP 
TS uP 
TS_SP 
TS_HP 
REPLACE 
DO CASE 
CASE MESS = 'E? 
SEOSE ALL 
DO MESS-CP 
DO SPEC-AS 
DO GEN-FS 
DO PRT-FS 
DO GEN-RPT 
DO MEAL-PR 
CASE SUBSIST = 
CEOSEWALL 
IF TSBILL > 0 
DO MBRLV 
ENDIF 
DO MESS-B-A 
DO GEN-FS 
DO PRT-FS 
DO GEN-RPT 
DO MESS-ES 
DO MESS-PRT 
DO MEAL-PR 
CASE SUBSIST = 
CLOSE ALL 
IF TSBILL > 0 
DO MBRLV 
ENDIF 
DO MESS-B-A 
DO GEN-FS 
DO PRT-FS 
DO GEN-RPT 
DO SPEC-AS 
DO MESS-PRT 
DO MEAL-PR 
OTHERWISE 
CLOSE ALL 
IF TSBILL > 0 
DO MBRLV 
ENDIF 
, DO GEN-FS 
DO PRT-FS 
DO GEN-RPT 
DO MESS-ES 
DO MESS-PRT 
DO MEAL-PR 
ENDCASE 
EJECT 
CLEAR 
@ 4,12 TO 10,68 DOUBLE 
@ 6,14 SAY [ VERIFY THAT THE CASH ACTUALLY ON HAND MATCHES THE } 
d 8,16 SAY [ AMOUNT REPORTED AND OTHER TOTALS ARE CORRECT ! } 
@evez,i2 FO 16,68 DOUBLE 
SET COLOR TO W+/R,, 


B_COST 
L_COST 
S COST 
H_COST 
TRIAL WITH 


Ul 


aoe ess. <> "bE? 


ieee rHODe- ‘A’ .AND. MESS <> ‘E! 


d 14,15 SAY [ 


So. COLOR TO B/B,, 
TO ANS 


WAIT ° ! 


ARE YOU READY TO PRODUCE THE FINAL REPORTS? (Y/N) 
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SET COLOR ITO W+7bae 


CLEAR 
SELECT C 
USE TRANS 
LOCATE FOR NAME = "START TRIAL BALANCE" 
IF ANS = 'Y' 
DELETE 
PACK 
DO EOM-RFT 
ELSE 
DO WHILE .NOT. EOF() 
DELETE 
SRIF | 
ENDDO 
PACK 
SELECT D 


USE SETCAT 
REPLACE TRIAL WITH 'N' 
RTri4.cE SUG_BILL WITH TSBILL 
REPESCE BLECOsST WITH Tse2be 
REPLACE L_COST WITH TS_LP 
REPLACE S_COST WITH TS_SP 
REPLACE H_COST WITH TS_HP 
ENDIF 


END Gs 

CLOSE ALL 
CLEAR 

RETURN 

XEND TRIAL. PRG 
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KOR OK OR KOK ORR AK OR RK KKK ORR KK OK ORK OK KOK KK OK OK IK OK IK OK IK IK IK IK IK OK IK IK IK IK IK OOIK OK IKK OK OK IK IK OK IK KK DK OK DIK OK 


* 


TRNMBR 


aK 


TK OK ROK KOK OK OK OK OK OK OK OK OK OK OK OK IK IK IKK OK OK OK IK OK OK IK IK IK IK IK IK IK IK IK IK OK DIK IK IKK IK IK OK OK OK IK IK IK IK OK OK IK IK DK OK OK OK OK 


PROCEDURE TRNMBR 
CKO ICKOK KOK CKO IOI KOK KOKO KOK OKO KKK KKK KK KK KKK KK KK OK OK >K 


* NAME : 
* AUTHORS : 
* 


* PURPOSE : 


TRNMBR . PRG 

LCDR J.L.TWIGG 

LT M.T.MADDEN 

MENU DRIVER FOR ADD/DELETE MEMBER SERIES. 


x 
x 
x 
x 


TK OOK OK KOK OK OR KOK OK OK OK IK OK KOK OK OK OK IK IK IK OR OKO OK IK IK IK IK IK KOK IK IK IKK OK IK KK IK OK DIK OK IK IK IK IK IK KOK OK IK IK IK OK OK OK IK OK OK OK OK OK 


* LISTING: 
CLEAR 
same * * T 


O CHOICE 


DPGeWHRIiLE .T. 


Za tT. 
3,28 
4,26 
Toa 
8,23 
8,55 
10,23 
izoae 
13,25 
14,25 
16,23 
19,1 


@, @s @, @; @ A @ OQ» Qs @, Q» A QA, 


= 
> 
KH 
a 


DO CASE 


WOesAyY ([M=025] 


0 18,75 DOUBLE 

SAY [ADD 7 DELETE MESS USER] 

TO 4,52 DOUBLE 

SAY [SELECTION CODE) 
HOls; 32 

TO 8,58 
SAY [ADD A MESS USER ----------------- 1] 
SAY [DETACH A MESS USER] 

SAY [PREPARE DETACHING BILL--------- 2] 
SAY [CLOSE OUT MEMBERS ACCOUNT ----- 3] 
SAY [RETURN TO PREVIOUS MENU --------- 4] 

SAY [ ] 


ENTER YOURMSELECTION CQDE: * TO CHOICE 


CASE CHOICE = ‘i' 


DO ADD-MBR 


CASE CHOICE = ‘2' 


DO DEL-MBR 


CASE CHOICE = ‘'3' 


DO EXSHARE 


CASE CHOICE = ‘4! 


CLEAR 
RETURN 


OTHERWISE 
‘CLEAR : 


ad 8 


d@ 11,23 SAY (YOUR CHOICE IS NOT ON THE MENU!! ] 
d 14,23 SAY [PLEASE MAKE ANOTHER SELECTION... ] 


,21 TO 17,57 DOUBLE 


d 18,1 SAY [ ] 
WAG, 50. CONT 
CLEAR 

LOOP 


ENDCASE 
ENDDO 


* END TRNMBR.PRG 
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2K KK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK IK IK KOK KOK IK AK KOK OK KOK IKK OK OK KOK OK OK IK IK IK KOK OR OK OR IK OK IK OK IK IK OK IK OK OK OK OK 


* 


ULE 


* 


KK KK KK KK OK OK OK OK OK OK OK OK 2K OOK OK OK 2K KOK KK IK KOK OOK KOK KOK OK OK OK OK OK OK 2K OK KOK KOK OK 2K KOK KOK 2K 2K OK OK OK OK OK OK OK 


PROCEDURE UTIL 
OOOO OOK OGIO OK OKOKOK OIOROK OOK ICI OOK KOK KOKO K KKK KK KKK KK KKK KKK 2K 9K KK 9K KK 2K 
* NAME: 

* AUTHORS : 


x 


Wier. FIG 
LEpR J;L.IWiGG 
Dl. .MADDEN 


* PURPOSE: MENU DRIVER FOR UTILITY SERIES. 
COCO OOK OK KOI CKO KOK OOK IK OK KKK KKK KKK KK KK KKK KKK KK KKK KKK KK KK OK 


x LISTING: 


CLEAR 
STORE 


a 


Qs @ & & & & & @ B & @ B A 


' Teo eeCHOrLce 

DO WHILE .T. 

0,0 SAY [M-01] 

1,4 TO 22,75 DOUBLE 


S727 
4,27 
6,23 
72 
7,54 
oF 20 
11,20 
13,20 
5.2 0 
17,20 
20,20 
23,1 


WAIT ' 


ig ENDDO 
CLEAR 


CAS 


CAS 


CAS 


CAS 


CAS 


SAY [UTILITY PROGRAMS MENU] 

TO 4,52 DOUBLE 

SAY [SELECTION CODE] 

TO 7 oe 

TO..73 57 

SAY [SET UP PROGRAM PARAMETERS --------- 1) 
SAY [INITIALIZE DATABASES -------------- 2] 
SAY [CHANGE PASSWORD ------------------- 3) 
SAY [PRINT CURRENT DATA FILES ---------- 4] 
SAY [DATA FILE RECOVERY -=-~-------------- 5] 
SAY [RETURN TO MAIN MENU --------------- 6) 
SAY [ ]} 

ENTER SELECTION CODE: ' TO CHOICE 


E CHOZCE =~'1* 
DO Se 2=UPr 

ESCHOmCEs=—) 2) 
DO JUMP 

E CHOUCE.—-. 93° 
DO NEWPASS 

E CHOICE = ‘4° 
DOePRI=Fr ILE 
BaCHOTCE = 5 
DO RECOVERY 


‘CASE CHOICE = ‘'6' 


CLEAR 
RETURN 


OTHERWISE 


SET COLOR TO W+/R,, 

CLEAR 

3 8,21 TO 17,57 DOUBLE 

d@ 11,23 SAY [YOUR CHOICE IS NOT ON THE MENU ! } 
d@ 14,23 SAY [| PLEASE MAKE ANOTHER SELECTION !] 
@18,1 SAY [ ] 

WATT -LOMeONT 

SET COLOR TO W+/B,,BG 

CLEAR 

LOOP 


ENDCASE 
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* 
x 
ok 
x 


RETURN 
ZenD UTIL .PRG 
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KK KOK KK OK OK OK OK K OK KOK OK KOK ORK OK KOK OK IK KOK KOK IK IKK JK IK OK OK IKK IK IK RIK IK IK IK IK IK IK IKK OK IK IK IK AK IK OK OK OK OK 


* VER-TRL * 
SOKOKOKOOKOKOKOKOK KOK OKOK OOK KOK OK KOKO KOK KOK OOK KOKO K KKK KKK KK KKK KK KK KK KK 2K OK 


PROCEDURE VER-TRL 
SOKO OKO OK OOK OK OKOK IKK IOK KOKA KKK IKK KK KKK KKK KK KK KKK 2K KK OK OK 


* NAME: VER-TRL.PRG *K 
* AUTHORS: LCDR J.L.TWIGG *K 
* LT M.T.MADDEN * 
*X PURPOSE: SCREEN TO ALLOW USER TO VERIFY THAT HE IS READY TO a 
* DO EOM REPORTS. * 


YK KK OK OK KK KOK OK KOK OK OK OK OK OK OK OK OK OK OK OK IK KK OK OK KK OK OK KOK KK IK IK KK ASK IK IK KOK KOK KOR OK KOK OK OK OK KOK KOK OK OK OK OK OK 


% 


LISTING: 


auO0, 0)” SAY SSEN-o008" 

d 4, 18 SAY “BEFORE A TRIAL BALANCE CAN BE PERFORMED THE" 
d 6, 18 SAY “THE FOLLOWING INFORMATION MUST BE ON HAND !" 
d 9, 17 SAY "1) ALL ENDING INVENTORIES AS APPLICABLE." 

ad 11, 17 SAY "2) MEAL COUNTS AS AFPLICABLE." 

d 13, 17 SAY 3) ALL TRANSACTIONS ENTERED." 

d 15, 17 SAY "4) DO ANY SHIP RIDER MESS BILLS NECESSARY" 
d 18, 18 SAY “SEE USER'S MANUAL SECTION 8.1 FOR DETAILS.” 
ad 25 10 TO 207669 DOUBLE 

a. 73°16" Owe soe DOUBLE 

* 


ENDSVER-TRE ERG 
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KOR OR OK ROK OK KOKORO OR KOK KK ROK OKI OK ROKR OK OKO OKO IK KOKUOIK IKK IK OKUOIK OK OK OOKOK OR OK ROKK IK IK OK KOK OOK OK OK 


x STARTUP .FMT “ 
SOKO OI CIOK IOI KK KKK OK KKK KKK OK 


PROCEDURE STARTUP .FMT 


Se 0, SO SAY "UT-002" 

am +, SO SAY "SET UP PROGRAM" 

a 4; 5 SAY “1) WHAT IS THE SHIP'S NAME. ?" 

Gaeeo, 22 SAY "“USS® 

Sse Ohta Sk tent Nate F LCTURE "“TIrrrrrrirrrrerrrrerrrrres 
d 6, 36 SAY "CINCLUDE HULL #)" 

Seow o> SAY "“"2Z2) WHAT IS THE NAME OF THE MESS ?" 

nee, 6 OO|6USAY 6 “™CHOICES: a: FLAG d: WARDROOM" 
ad 12, 19 SAY "b: COMMANDING OFFICER en CROe 

peo 19 SAY “c: UNIT COMMANDER" 

Seow sit ENTER THE CORRECT LETTER CODE:”™ 

Smee so, GET SETCAT->MESS PICTURE "!* 

io, «68S 06SAY hU" SS) 6hPOES THE MESS SUBSIST FROM" 

mic, ©& SAY “THE GENERAL MESS ? CY ND 

Sam 57 «6GET )6SETCAT=>SUBSIST PICTURE ™!* 

Gee, 26 TO 2, 45 DOUBLE 


TK OK KK OK KOK OK KOK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK KK OK OK OK KOK KK OK OK KK KK KKK KK KOK KOK OK OK OK OK OK OK 


* END= NY. FrHT - 
CCCI IOI ICKL IOOK II KOK KOK KKK KKK KOK KOK 


PROCEDURE END-INV.FMT 

. © say "EN-—002" 

4, 28 SAY “ENDING INVENTORY VALUE" 

Be 25 SAY "IN THE SFACE PROVIDED BELOW ENTER" 
Mieco SAY "THE VALUESOF THE ENDING PROVISIONS” 
255235 SAY "INVENTORY:" 
t2oett?, GET INV->E_INV 
i257 25 SAY "IN THE SPACE PROVIDED BELOW ENTER*™ 
17, 23 SAY “THE VALUE OF ANY ENDING NON PROVISIONS" 
79, 23 SAY “INVENTORY: ®™ 
ieneG7 GET INV=>N_INV, 

eet) |=6Co TO 215, 70 DOUBLE 


@@@ @& &@ @& & & & & A 


TR OK OK OK IKK OK OK OK OK OK OK OK OK OK KK OK KK OK KK OK 2K KK OK KK KK KK 2K OK 2K 0K KK KK 2K KK KOK OK KOK OK KOK OK OKOK OK OK &K 


s i Mako scKE. Pry ’ a 
CCCI ICICI ICICI IOI KOK KKK KK KK KK OK 


PRock DURE TSR-SCRE . FMT 

Ce) | ax «6 UL TR=-07:2" 

4, 28 SAY "NEW MEMBER INFORMATION" 

8, 12 SAY “NAME OF NEW MEMBER:" 

Sess GET MEMBERSSaNAME, PIGHUREeTI I'l P hii htrttrrr ester ecees 
230535 SAY “LAST, FIRST MI" 

izonl2 SAY "SSN NUMBER: " 

12, 29 GET MEMBERS->SSN PICTURE "999999999" 
i259) 20 sseay “STATUS: ™ 

i277 oe GEl MEMBERS->StAtTUs. FICTURE "7!" 

fo ocean © (M,E, )" 

i t2 ser “DATE JOINED:* 

ieee Gl MENBERS->JOINED FUNCTION "pD* 

los 02 Say “MM DD YY RANK: * 


@®@@ @& @& @ @ @& & @ G @ A, 
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13, 
a 
2» 

20, 
2» 
2) 


@, @ @, @ Bs A 


60 


GET 
TO 
58, 
TO 
TO 
TO 


MEMBERS—-7RANIC ~Pi@GeURE ee 
2, 74 DOUBLE 
2, 4 DOUBLE 
20; 5 DOUBEE 
5, 49 
20, 75 DOUBLE 


KK KK KKK KK IK KK KKK KK IK KK KK KK KK KK 2K KK IK IK IKK IKK IK IKK IK IK IK IK IK IK IK KK IK IK IK IK OK IK OK 2K OK OK OK 


* 


STARTUPZ. Ea x 


KK KK KK KK OK KK KK KK KK KKK OK 2K KK OK KK 2K IK DIK DIK IKK IK KK RIK OK OK OK IK KK IK IKK IK IK IK OK IK OK OK IK OK OK OK OK OK 


PROCEDURE 
d0 0, O 
oe» 5, 18 
d 6, 18 
es Sane S 
ad 9, 44 
a 115 Zo 
d 11, 44 
dials, 2S 
d 13, 44 
am boy e2o 
gad 15, 44 
aw 3, 9 


STARTUR Zn ria 


SAY 
SAY 
SAY 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 


"Ure 00S> 

"PLEASE ENTER THE CHARGEABLE MEAL PRICES AS FOUND" 
"IN THE CURRENT NAVSUP INST. 4061.9." 
"BREAKFAST MEAL:" 

SETCAT->B_COST 

"LUNCH MEAL:" 

SETCAT=7L_Cest 

*FDINNERSMEAL.. 

SET CATS ce coon 

"HOLIDAY MEALS:" 

SET CAT =7Ha@G05a 


TO 175.69 DOUBLE 


YK 3K KK OK KK KK IK 2K IK OK KK OK 2K IK IK IK OK 2K 2K OK OK OK KK IK IK IK IK 2K IKK DK DIK IK IK OK 2K DK DIK IK DIK DIK 2K OK IK DIK OK IK IK IK OK IK IK OK OK OK 


* 


STARSUPS TPT x 


KK KK KK IK IK IK IK KK 2K IK 2K 2K 2K IK KKK IKK IK IK 2K 2K IK IK OK KK KK KOK KK IK KK IK IK IK IK DIK IKK IK IK OK IK IK OK IK IK OK OK OK OK 


PROCEDURE 
d 0, O 
ad 3, 21 
a 4, 21 
ad 6, 26 
ad 8, 26 
@oat 2 a2o 
dees od 
ad 14, 18 
a 15, 32 
a 
d 18, 18 
ga 18, 31 
d 18, 44 
a/18, 57 
tm 14. 710 


STARTUP3.FMT 


SAY "UT-004" 

SAY "WHAT IS THE METHOD OF CHARGING FOR MEALS?" 

SAY |: ( NOT APPLICABLE TO CPOSMESSES ae 

SAY "A) BY INDIVIDUAL MEALS EATEN” 

SAY "B) EQUAL PRORATION OF COSTS" 

SAY “SELECT Av ORE. 

GET SETCAT-—-MEIHOD >) Picilunee 

SAY “ENTER THE PRICES TO BE CHARGED FORSiBats Sor” 
SAY "TO NON MEMBERS" 

SAY "BREAKFAST LUNCH SUPPER HOLIDAY MEALS" 
GET SECA] ~ 22 cost 

GET SETCAT—- 7 lees 

GET SEITCAtGs-SscCosn 

GET SETCAT=->H_COST 

1O-20;,, 69 DOUBLE 


2K OK AK KK OK OK OK KK OK KK KK 2K 2K KKK 2K 2K KK OK KK KKK 2K KKK KK KKK KKK 2K IKK IK IK 2K IK 2K IK DK OK IK IK 2K IK OK OK OK 


*K 


Sun = 


SUM-IP .FMT * 
2K KOK OK OK KOK OK OK OK KOK OK 2K IK KKK 2K ROK KK IK KK KK KK KK 2K KK IK IK KK 2K IK DIK 2K 2K IK 2K 2K IK IK OK OK IK DIK 2K IK OK 2K OK OK OK 
PROCEDURE IP.FMT 
afi Gn. 0 "EM-003" 
a 3, 21 
a2 6, 19 
a 9, 21 
3 a0, 21 
d 10, 52 


SAY 
SAY 
SAY 
SAY 
SAY 
GET 


"TOTAL MEALS EATEN DURING THE MONTH" 
"RECORD TOTALS FOR THE CATEGORIES BELOW" 
"OFFICER'S / OFFICER SGUESI>. 
"CINCLUDES PAYING SHIPRIDERS)”™ 

SUMMARY =>0FF 
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omm2, 21 SAc Ss OUESTSeOr THE MESS:" 

Gaze. 52 GET SUMMAKY=>GUST 

ais, 21 SAY "“ENLISTED:" 

ema, S2 GEL SUMMARY~->ENL 

aei6, 21 SAY “NUMBER OF DAYS IN THE MONTH:"* 
@d 16, 55 GET SUMMARY->DAYMON RANGE 28, 31 
a0 4, 21 TO 4, 51 

ad 4, 21 TO 4, 54 

aero, 10 TO 18, 70 DOUBLE 

gues 10 TO 1, 70 DOUBLE 

ae ts 10)06UmTOlChUT8, 70 DOUBLE 


KOR OR ORR ROR ROK ROR ORR ROR AR ROR ROR OR RR ROR RK ROK ROR OR ROR ROR RRR OR RR ROK IR AR ROR ROKR ROOK ROK ROK OK OK OR 


“ MEALS=FI. EMT * 
SOOOCOOOL KKK KK KKK KKK KKK KK OK 


PROCEDURE MEALS-FT.FMT 


ome, © SAY "TR-011" 

Geez, 17 SAY "MEMBERS NAME: * 

ero seesaY SME Aeoe MAME. FIrCRURE "litirrrrrrrerrrrrrtrere 
d 6, 18 SAY "THE NUMBER OF BREAKFAST MEALS:" 
ad 6, 51 GET MEALS~->BR_CT 

dad 9, 18 SAY "THE NUMBER OF LUNCH MEALS:" 
weg, O81 GET MEADS=7LU_CT 

ad 12, 18 SAY "THE NUMBER OF DINNER MEALS:" 
amee, om GET MEAES->DIscT 

ad 15, 18 SAY "THE NUMBER OF HOLIDAY MEALS:" 

7 lameotesGET MEALS->HOsCT 

fiscets SAY "TOTAL BILL DUE:" 

d¢ 18, 40 SAY BILL TTL 

ay 1, 13 TO 3, S§9 DOUBLE 

Vises ao 21, S9 DOUBLE 


* SPEC-BA.FMT * 
OK OR OK OR ROOK ROOK OK OK OK OK OOK OK KOK OK OK OK OK OK OOK OOK OK KOK OK OK OOK OK OK OK KOK OK OK OK OK KOK OK OK OK OOK OK OOK OOK OK OK OK OOK OK OK OK OK OK OK OK OK OK 


PROCEDURE SPEC-BA.FMT 


2 0, O SAY "EM-006" 

d 4, 13 SAY "YOU CAN CHARGE A SPECIAL ASSEMENT TO MEET ANTICIPATED" 
d 5, 13 SAY "FUTURE NEEDS. THE AMOUNT SHOWN BELOW IS WHAT WILL BE" 
d 6, 13 SAY "CHARGED TO EACH MEMBER OF THE MESS AS OF MONTHS END." 
@ 9, 24 SAY "SPECIAL ASSESMENT" 

d 9, 44 GET SETCAT-~>SPEC_ASS 

d 12, 14 SAY "YOU MAY CHANGE THE ABOVE AMOUNT OR LEAVE IT AS IT IS" 
Sees, to SAY "BY HITTING ENTER." 

ames, 24 TO 10, 51 

a& 1, 10 TO 1, 70 DOUBLE 

@ 16, 10 TO 16, 70 DOUBLE 


RRR RRR RRR ROK ROKK ROKR KOK ROKK IK KOK KOK ROKK RIK IK KOK IK OK IKK IK KK KOK KOK OK IK IK OK IK KK OK OK OK 2K OK KOK 


= EOM=fP. EMT = 
OOOO ICO ICICI CICICICK ICICI ICICI IOIOK KOK OK KOK KOK IK KKK KKK 


FROCEDURE EOM-IP.FMT 


qam0;,, 0 ‘SAY "EM-O0m" 
an Os) 20 sane “MONTHLY REPORT TO BE PROCESSED AS OF:"* 
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d 10, 31 GET SETCAT=>E0M PICTURE “33 ee eee 
ad 11, 27 SAY "EX. Si MEGENEBER 9387" 

a” 7, 24 TO 7, $2 

a 95.25 VlOet 27sec DOUBLE 

ad” 2, 10° TO r17,. Gs DOUBLE 


KK KK OK OK OK OK 3K KOK IK OK OK IK OK KKK IK KK OR IK IK AK IK IK AK OK IK IK IK IKK IK IKK IK IK IK IK IK OKO AK IK OK OK IK IK IK OK ROOK OK OK OK OK OK 


x ASSIGND. FMT x 
OKOOKOOK COOK GOK COOK OK IOI OK OKO OOK GIO IO K KK KKK KK KKK OK 


PROCEDURE ASSIGND. FMT 

0d 0, O SAY "EM-004" 

a 6, 16 SAY “ENLISTED MEMBER’S NAME:” 

@ 6, 44 SAY DYSWKD=>DNAME PICTURE ee eee eee 
d12, 24 SAY "DAYS ASSIGNED TO THE” 

a’ 13, 24 SAY "“MESSSUHES@iGNTH” 

@13, 53 GET DYSWKD->WORKD RANGE O, 31 

a 5, 14 TO 7, 65 DOUBLE 

d 9, 14% TO 16, 65 DOUBLE 


ROK KOK OK OK KK OK KK KOK OK KK KK OK KK KK AK IK AK AK IKK IK IKK IK IK IK IK IK KK IKK IK IK KK AK IK IK IK AK IK KK AK OK OK OK OK OK OK 


me REC-MB ILC EM x 
COOK OOK OOO OOK OOK OOK OOOK OOK KOK KK KKK KKK KK KK KK 


PROCEDURE REC<MBIL EMT 

0, ©  SAYs"EM-005. 

4%, 12 SAY "THE FOLLOWING IS A RECOMMENDED MESS BILL FOR THE UPCOMMING" 
5, 12. “SAY “MONDE 

5, 35 — GE. eShteat—-SUGeZELIEL 

7, 12 SAY “BASED ON CURRENT TRENDS THE RECOMMENDED MESS BILL 2s Paola 
8, 12 SAY “"IDED IN ORDER TO MAINTAIN THE STATED MESS SHARE OBJECTIVE." 
10, 20 SAY "IF DESIRED, CHANGE AMOUNT ELSE HIT ENTER." 

14, 12 SAY "CONSIDERING UNUSUAL ANTICIPATED EXPENSES YOU MAY WISH TO" 
15, 12 SAY “CHARGE A SPECIAL ASSESMENT TO THE MEMBERSHIP. ENTER fie 
16, 12 SAY “AMOUNT OF THE SPECIAL ASSESMENT ,BELOW OR HIT ENTER:" 

18, 35 GET SETCAT->SPEC_ASS 

12, 8 GeO l2yeece 

2, MS G0 (205872 DOUBLE 


@® @ @ @ @& @ @& & & & @ B@ 


KK KOK KOKO OR OR OK OK ROK OR KOK OK OK OK OK IK OK KK IK OK OK KK IK OK OK OK IK IK IK DK 2K KK OK 2K IK KK IK IK IK IK KK OK KK IK DK 2K IK OK OK 


* ‘ Slav. EME - os 
OKO IOI ICCC ICICI IO OK IO KKK KKK KKK KKK OK KK KK OK 


PROCEDURE "SHR=LVEGEMT 

oO; O "SAY S"U7T—0Gc7 

4%, 21 SAY “ENTER THE VALUE AT WHICH YOU DESTRESITO” 

>,» 21 SAY "MAINTAIN THE MESS SHARE:” 

9, 27 SAY "MESS®SHARE” 

9, 42 GET SETCAT->SET SHARE 

13, 19 SAY "REFER TO THE USERS MANUAL BEFORE MODIFYING" 
2, 10 TO 17, 70 DOUBLE 


@& @ @ @ @ @& & 


TK KOK ROKK OK OK IK OK OK KK KK OK 2K OK OK KK 2K KK OK OK IK KK KK IK KK KK IK 2K IK IK KK KK IK KKK OK KK KK 2K OK OK OK KK OK 


= ERATION. FMT x 
OKC OOK OOOO OOOO OK IO IO OKO OK OK OK OOK KKK KK KK KKK KK KKK KOK 
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PROCEDURE ERATION. FMT 

ad Q, Oy SAY ““UT-Ot6™ 

feo ec ieoAY ENTER THES VALUE FOR THE DAILY RATE FOR” 

®@ 6, 20 SAY “ENLISTED BASIC ALLOWANCE FOR SUBSISTANCE:" 

meno, S36 GET SETCAT—2ERATS 

mic, 13 SAY “THIS RATE TO BE USED._IN THE COMMUTED RATION COMPUTATION" 
meee tO: 6TO. 16, 70 DOUBLE 


TK OK OK KKK KK ROK RK RK OK ORK OK RK OK KOK KK OK OK OK OK KK KK OK IK OK OK OK OK IK OK IK OK OK IK KOK KOK OK KK IK OK IK OK OK OK OK OK OK 


* DYS.FMT - 
SKK OK OK OK OK OK KOK KOK KOK OK OK OK KOK OK OK OK OK OK KOK OK OK OK KOK OK OK KOK OK OK OK KOK OK OK OK KKK KKK OK KK KKK KK KKK 


PROCEDURE DYS.FMT 

GO, © @SAY @?TR-010" 

G4, 18 SAY "INPUT SCREEN FOR COMPUTATIONS REQUIRED IN" 
es ssay "ADDING ORVDELETING MEMBERS OF THE MESS" 
9, 23 SAY "NUMBER OF DAYS MEMBER ONBOARD" 

ipa co ~_SAY "DURING MONTH:" 

10, 54 GET DYSWKD->WORKD RANGE OQ, 31 

13, 23 SAY "NUMBER OF DAYS IN MONTH:" 

13, 54 GET DYSWKD->MONDYS RANGE Q, 31 

Seto £0 6, 36 

eyeo.6d TO «6115, 68 DOUBLE 


@ & @ @ @ @ OB & B A 


WK OK OK OK OK OK OK OK KOK OK KOK OK OK OK OK OK OK OK OK ARK KK OK OK OK OK OK KK AK AK IK IK OK KK IK OK IK OK OK OK OK OK OK OK OK IK KOK OK KOK OK KOK 


* BPAWe IP .FMT * 
CCCI COOK OK OKO KOK KK OK 


PROCEDURE BPAY-IP.FMT 
d QO, Q SAY "TR-004" 


d 6, 22 SAY "FOR WHAT PURPOSE IS THE AMOUNT DUE:"” 
Zi eee ONS PURPOSE "PICTURE “Herre r ter itepere i trprrrrries 
a 4, 19 TO 11, 58 DOUBLE 


KOK OK KOK KOK OK OK KOK OK KOK OOK OR OK KK OK KOK IKK OK OK OK OK KOK OK OK KOK OK OK OK OK KK OK KK KOK KK IK KK IK OK KK OK OK OK OK OK OK 


a BREG=]i1P.PMr * 
CCCI CCK OK KKK KKK KOK KOK 


FROCEDURE AREC-IP.FMT 

pommu, «0 SAY "TR-001" 

d 7, 18 SAY "NAME 7 ENTITY OWING" , 
Moma, to SAY "MONEY TO THE MESS:* 


Pe eas Void dams oNAMNE FUNEEPION "il Pri ii Pemmepi rire “PICTURE 
eee cee fe Ee ees 

@ 11, 18 SAY "AMOUNT OWED TO THE MESS:" 

@ 11, 56 GET TRANS->AMT 

@ 14, 18 SAY "REASON MONEY OWED:" 

Pwo) Be neans-oPURPOSROSrICTURE “Pili rriirrt erst rere rereere 
mo, to FO 16, 67 DOUBLE 


KOK ROK KOK OOK OK KOK OK OK KK OK OK OK OK OK KOK OK KK OK OK OK IK KOKO KOK KK OK KKK KK OK OK OK 2K OK KK OK KOK OK KOK OK OK OK KOK 


* ARAY=IP oEMT “1 
ICCC CCK CCC OKOK KKK KKK KOK KOK 


PROCEDURE APAY-IP.FMT 
ad O, Veeonxr “TR-O02™ 


Lvs 


®QeQaaaegaQe @® & & 


20 
36 
20 
36 
Zo 
7. 
Ve 
Ae 
26 
4s 
Pape: 
10 


SAY 
GET 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 
SAY 
nS ak 


"BILL VOWEUeLO- = 

TRANS->NAME PICTURE (Yr eee 
"AMOUNT OWED:" 

TRANS->AMT 

"SELECT ONE OF THE FOLLOWING:” 

"A. FOR PROVISIONS FROM FOOD SERVICE OFFICER" 
"B. FOR PROVISIONS FROM VENDORS" 

"Cc. FOR OTHERS iIc oo. 

"ENTER SEEECIION:— 

TRANS-> PURPOSE Sh rervURee.. 


TO 10732 
TO 19,67 DOUBLE 


KOK KOK KK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK ROK OK OK KOK KOK OK OK OK OOK OK OK OK OK OK ROK OK OK OOK OK OK KOK OK OK OR OK OK OR OK KK 


x 


CPAY-iIP FMT x 


KOK OK OK 9K OK KK KK KK OK KOK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK MK MK MK MK MK OK MK KOK OK OK OK OK OK OK MK MK OK RK ROK OK OK MK MK KK 


PROCEDURE 


@ @ @ @ @ @ A 


0, 
5; 
7 > 
13, 
13, 
3, 
11, 


0 
26 
16 
14 
62 

S 

S 


CRAY =P. bmw 

SAY [TR-003 ] 

SAY “THE FIRST TWO DIGITS OFetnee 

SAY "REQUISITION NUMBER ARE PROVIDED BY THE SYSTEM !”" 
SAY "ENTER LAST THREE DIGITS OF REQUISITION NUMBER:" 
GET TRANS->REQLNU  PIrCiuRe ac 

TQ 975.69 DOUBLE 

TO 1555 69 DOUBLE 2 


KOK OK OK OK OK KOK OK OK OK KOK KOK KOK OK OOK OK OK KOK KOKO OK OKO OR OR OR OR OR OR OR KOK OK KK KK KOK OK OK OK OK OR OR OK OK OK OK OK OK OK 


xK 


LYV=hE EMT * 


KOK OK KOK KOK OK ROK OIKK OK OK KOK AK IK IK KKK KOK KK IK OK KK IR AK ROK IKK KAR ROARK KK OK OK ROK OR ROK ROR ROK OR OK OK OK OK OK 


PROCEDURE 


@® @& @& @ @ @ @ A @ @® & 


0, 
6; 
6; 
10, 
13 
lives 
13, 
14, 
14, 
7, 
4, 


0 
Vs 
35 
i 
19 
54 
19 
Le 
54 
i 
16 


LVsiP abla 

SAY [EM-007 7 

SAY “MEMEBERS NAME.” 

SAY DYSWKD->DNAME PICTURE "XXXXXXXXXXXXXXXXXKXHKXK" 
SAY "NUMBER OF DAYS MEMBER ON" , 
SAY "LEAVE DURING CURRENT MONTH:" 

GET DYSWKD->WORKD RANGE 0O, 31 

SAY "TOTAL NUMBER OF DAYS" 

SAY "IN MONTH:" 

GET DYSWKD->MONDYS RANGE QO, 31 

TOM 7 ooo 

TO 16, 60 DOUBLE 


AK KK KOK OR ROOK OK OK OR KOK OK KOK OK OK OK KKK KOK OOK OK ROKK ROKK OK OK KOK RK OK OK KOK OK ROK OK OK OK OK OK OK OK KK KK KK KK 


x 


SHARBILL. FMT 


TK OOK OK OK ROK OK ROK OK KOK ROOK KOK ROK OK KOK OK KOK ROOK OOK ROK KOK OK KOK OK OK OK KOK OK KKK OK KOK OK ROK OK OK OK OOK OK OK OK ROK 


PROCEDURE 


@®@&&& & & @® & 


0 
24 
27 
oo 
31 
23 
eo 
Zo 
on 


SHARBILL | EMT 


SAY 
SAY 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 
SAY 


“tT R=O 16 

PENTER THE SOCIAL SECURITY NUIEER™ 
"OF THE SDErPAR GiUNGeMEMpE Rar: 
MEMBERS->SSN 

"MEMBER INFORMATION" 

MEMBERS ->RANK 

MEMBERS ->NAME 

"MESS SHARE REFUND DUE:” 
MEMBERS->SHAREOUT 
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mee ce SAY  Nbl MESS SILL REFUND/DUE:"*" 
Gees 31 SAY MEMEBERS->BILL_OUT 

Geet, 19 TO 9, 59 DOUBLE 

far 19 tO 22, 59 DOUBLE 

d 


it, 27 TO 14, S2 


KK KOK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OOK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK 


i JUNE =A; FMT x 
OKO OOK OOK OKO OKO KOKO OKO OK OKOKOK KOK OK KK KKK KKK KK KK KKK KK KK KKK KOK 


PROCEDURE JUMP1i-A.FMT 

mos O SAY "UT-009" 

pam 2G.)|6SAY 6 6mENTER THE PURPOSE OF THE” 

@ 8, 35 SAY "TRANSACTION: " 

ee ern e tao meter Oor PICTURE "fttrrriririrrrrtrrrererters 
ad 5, 24 TO 12, 56 DOUBLE 


TKK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK KOK OK OOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


- JUS —21 PET = 
OOK OKO KOK OKO OK OK OK OKO OKO OK OK KKK KK KK KK KKK KK KKK KKK KKK KKK 


PROCEDURE JUMPS-IP.FMT 

O, O SAY [UT-011] 

8, 24 SAY "WHAT DID THE MEMBER PAY" 
Preeo SAY “FOR HIS MESS SHARE:" 

See o2 GET MEMBERS->SHAREIN 

oee2o. 6m) hUm12, 61 DOUBLE 


Qs Qs Qs @s @ 


2K OK OK OK OK OK OK OK OK OK OK KK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OR OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


* JUMP <TP Eur ms 
KOKO KOKO KOKO OKO OKO KOK OKO OIOK KOKO OKOIOK OK KOKOK KKK KKK KOK KK KKK OK KKK OK 


PROCEDURE JUMP1I-IP.FMT 

Use, 0 SAY "UT-008" . 

ine’ SAY "ACCOUNTS ROE C Egle © LE” 
@> 10 SAY "NAME OF ENTITY OR" 

3, 10 SAY “PERSON OWING THE MESS:* 

foes? Volt MmerIS—->NAME PICTURE "ftiletirityiirrrripre 
eeaioeece, “« ITF A MESS MEMBER ENTER SSN ONLY )" 
5, 10 SAY "DATE TRANSACTION" 

Se10 SAY "OCCURED:” , 

6, 37 GET TRANS->DATE_IN 

wee SAY “PURPOSE:” 

iPelo oAaY "“A) MESS BILL OWED TO THE MESS” 

2s 15 SAY “B) MESS SHARED OWED TO THE MESS” 

14, 15 SAY "C) COMRATS DUE FROM DISBURSING" 

ion io) SAY “D) OTHER” 

iSoeto SAY "ENTER YOUR SELECTION: " 

ep ooeweGhhe TRANS->PURPOSE “PICTURE ™!" 
20, 10 SAY "AMOUNT OF THE TRANSACTION :" 
20, 38 GET TRANS->AMT 


@ @ @ @ @ @ @ @& Q@ A @ @ @ A @ A B 


MK OK OK OK OK OR OOK OK OK OK OOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK IK IK 2K OK OK OK OK OK OK OK 9K OK OK OK OK 2K OK OK OK OK 


“a JUNE O-rP’. EMT ne 
SOKO OOOO OK OKO KOO OKO OKO OOK OKOKOK OK OK OKOK KOK OKOKOK KKK KOK KKK OK KKK KOK 
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PROCEDURE JUMPO=2 Paria 

O; 0 SAY "Ul=0G7 

5, 23 SAY "SYSTEM INITIALIZATION VALUES" 
8, 17 SAY “WHAT IS THE VALUE OF THE" 

9, 17 SAY "INVENTORY BROUGHT FORWARD: ® 
9, 52 GET INV=>Beri 

12, 17 SAY "WHAT IS THE AMOUNT OF THE®* 
13, 17 SAY "CASH BROUGHT FORWARD:" 

13, 53 GET INV->CASH_FWD 

16, 17 SAY “WHAT IS THE VALUE OF THE" 
17, 17 SAY "MESS SHARE BROUGHT FORWARD:" 
17, 55 GET INV->VAL_FWD 

6; 2) 20) sO; moe 

25 lope One UG mod DOUBLE 


@, Q@, Gs @» Gy Gs Bs Gs Bs Gs Gs Ay Oy 


[OKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOK OK KKK OK OK OK OK OK OK KOKO OKI IK IKK IKK IK IOIK IK IKK KCOK OK IKK OK ROK AK OK 


ce JUMPZ=f Re eee 
SEOKOKOROKOKOR OOOO OK OOK KOK OKOK GIO OKO OKO OK IKK OK IOI KIKI III IKK IK IKK KKK OK KOK 


PROCEDURE JUMP2-= TF eit 

OO, O SAY “Upsone. 

1, 24 SAY "A C COUNTS PAYABLE" 
2, 12 SAY "TO WHOM OWED:" 

2, 26 GET TRANS-SNADbemeECTURE "! Fir rit eee 
3, 26 SAY "USE SSN FOR MEMBERS" 

4, 12 SAY “DATE OF THE. TRANSACTION:" 

4, 37 GET TRANS->DATE_IN 

6, 12 SAY “PURPOSE"® 

7, 15 SAY "A) PROVISIONS PURCHASED FROM" 

8, 18 SAY "THE SUPPLY OFFICER:™ 

9, 15 SAY "B) PROVISIONS PURCHASED FROM" 
10, 18 SAY "AN OUTSIDE VENDOR:" 

11, 15 SAY "C) MESS BILL REFUND OWED:" 

12, 15 SAY "D) MESS SHARE REFUND OWED:" 

13, 15 SAY "E) MEALS PURCHASED, FROM THE GALLEY:" 
14, 15 SAY "FOOTER 

17, 35 SAY “REQUISITION NUMBER IF ANY:" 

17, 62 GET TRANS->REQINUM PICTURE “iitits 
19, 12 SAY "ENTER (SLercecTLoNn: = 

19, 29 GET TRANS->PURPOSE PICTURE "!" 

21, 5 SAY "AMOUNT OF THE TRANSACTION: " 
21, 32 GET TRANS-7AML 


Q@, Q» Gs» Q» Gs Qs Qs Os GO» Gs Gs, Qs Qs B @ AB @ As Q G Gs G 


a 


{KOKOKOKOKOKOKOKOKOKOKOKOKOKOK OK OK OK OK OK OK OK OK OK KOKO KOKI OIKOIKOK KOK OK OK IKI OK OK IK IK IK IK IK KKK IK IK IKK OK OK OR OK 


Ze JUMPS =fE. ie 
SOOO OOO OOK OK OK OK OKO IOI OOK OI OK ICIOK OKI KIKI DKK KK DIDI DIK IK KK IKK KK KOK OK OK 


PROCEDURE JUMP3-IP.FNT 

OF 0 SAYeeUr-0O) 2" 

9, 24 SAY "WHAT IS THE CURRENTLY RECOMMENDED" 
11, 32 SAY “HONG.  urSsssrrCl 

14, 36 GET SEIDGAL=">sUGeercL 

7y 18 TR 165-560 DOUBLE 


@» Gs» Gs Gy) Oy» 


KKK OK OOK KK KK KK 0K 0K KK KK KK 0K KKK KKK KK KK KOK OK OK OKOK OK OIKOK OK OK OKI IKK IKK IK IKIK IKK IK KK OK AK OK 


* PASSWORD. FMT 
SOK OOKOKOKOOKOK OOK OOK OKO OIOKOK KOK OKOK KOKO IKI IOK IK IDK OKO OIOKIIKIOK KK DIK K KK KK KK KK OK 
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PROCEDURE 


@ @ @ @ @ @& 


Gr; 
4, 
11, 
2 er 
8, 
2» 


0 
14 
ae 
43 
10 
10 


PASSWORD. FMT 
SAY [UT-001 ] 


SAY "YOUR OLD PASSWORD HAS BEEN REMOVED FROM THE FILE 


SAY "ENTER NEW PASSWORD:" 


Gen it CAT—->PASSWORD PICTUREeods! ! fei iii:" 
TO 14, 68 DOUBLE 
Tom 6, Ge DOUBLE 
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APPENDIX F 


PRIVATE MESS ACCOUNTING SYSTEM 
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USER'S MANUAL 


PRIVATE MESS ACCOUNTING SYSTEM 


TABLE OF CONTENTS 
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USN 


PRIVATE MESS ACCOUNTING SYSTEM 


Welcome to the Private Mess Accounting System (PMAS). This 
software application was designed to automate most aspects of 
the shipboard mess treasurer's tasks. This program is a full 
featured database application that allows mess member 
tracking, mess bill preparation and full monthly financial 
reporting. The program is menu driven and assumes limited 
experience on the part of the user in mess treasurer duties. 


1. EQUIPMENT REQUIRED 


This application was designed to run on the following 
equipment: 


IBM AT, ZENITH 248, HONEYWELL PC microcomputer or 
equivalent with: 


+ MS-DOS 2.11 operating system or later 
version. 

1 360K disk drive 

1 20 megabyte hard disk 

clock/calender card 

color monitor (monochrome acceptable) 
printer capable of handling 8 1/2 X ll 
inch tractor feed paper. 

+ 640K RAM space 


+++ t+ + 


* use of the program on less than an IBM AT or 
equivalent will lead to a noticeable decrease in 
system response 


2. GENERAL BACKGROUND INFORMATION 


There is some general background information on specific 
features and requirements of PMAS that you need to know prior 
to working with PMAS. 


2.1 AUTOMATIC ARCHIVING 


First, PMAS has an automatic archiving feature that is 
activated when you select QUIT from the MAIN MENU. This 
feature takes the current data contained in the data bases on 
the hard disk and copies it to a floppy disk in the A drive. 
This procedure ensures that you will always have a current 
copy of your data bases in the event of a hard disk failure. 
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2.1.a CREATING DATA BACKUP DISKS 


To facilitate the archiving process you need to take two, 
new, blank floppy disks and label them with the name of the 
mess. Next, label one DATA BACKUP A and the other DATA 
BACKUP B. Write on floppy disk labels with a felt tip pen. 
Since these disks are new they must be formatted. To format 
a disk put it in the A drive and at the C> type: 


FORMAT A: <¢ig> 


Every time you start a session with PMAS put one of the disks 
in the A drive. Alternate between the DATA BACKUP A disk and 
DATA BACKUP B disk each time you use PMAS. By rotating 
between two disks you will always have a current copy of your 
databases and a copy of the data as of the end of the 
previous session. : 


2.2 PRINTER WARNING 


Ensure that your printer is loaded with plenty of paper and 
remains powered on during a session with PMAS. Anything that 
interferes with printer operation may cause the program to 
run erratically. 


2.3 ERROR CHECKING USER INPUT 


Great pains have been taken to ensure the user has the 
opportunity to review his/her input prior to finalization. 
After you input information, you will always be asked if it 
1s correct. This will be your chance to correct errors prior 
to database acceptance. 


2.4 SCREEN NUMBERING 


Every data input screen is numbered in the upper left hand 
corner. These numbers will be used in this manual to help 
the user identify what section of the manual applies to what 
screen. These numbers can also be referred to by the user 
when requesting assistance over the phone or by naval 
message. 


2.5 PASSWORD PROTECTION 


Access to the PMAS databases is protected by a user chosen 


password. Immediately after the PMAS initialization screen, 
you will be requested to provide your password. wou wall 
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have three opportunities to enter the correct password before 


the program dumps you back out to the operating system. The 
program was shipped with a preset password. This password 
will be required the very first time you enter PMAS. The 


preloaded password is FORBIN. 


2.5.a CHANGING THE PASSWORD 


It is recommended that at a minimum the system password 
should be changed when mess treasurer turnover occurs. 
Changing the password is a simple process. From the MAIN 
MENU select code 1 - SYSTEM UTILITIES. You will now see the 
UTILITY PROGRAMS MENU. From that menu select code 3 - CHANGE 
PASSWORD. You will then be prompted to enter a new password 
of up to ten alphanumeric characters. Do not use passwords 
that can be easily determined. (e.g., your birthday, your 
spouses name or your Social Security Number) , 


3. PMAS INSTALLATION PROCEDURES 


To have input accepted during, either, the installation or 
use of PMAS, the ENTER or’RETURN key may have to be hit. In 
places where hitting this key is required the symbol <cr> 
will be used in this manual. 


When using a computer equipped with a hard drive, the 
operating system is normally resident on that drive. When 
you turn on your computer and a C> appears. you can be fairly 


certain that MS-DOS is resident and your computer is 
correctly booted up. If you are prompted to insert a systems 
disk or there is indication that no system is present, read 


your computer’ s users manual and determine how to boot your 
computer from the hard drive. Your computer must boot from 
the hard disk (normally the C drive) before you continue! 


3.1 SYSTEM CONFIGURATION 


Your operating system by default allows only eight files to 
be open at the same time. In order to run PMAS efficiently 
and without error, MS-DOS must be configured to open twenty 
files simultaneously. To accomplish this configuration we 
need to create a CONFIG.SYS file. 


First, we need to check to see if a CONFIG.SYS file already 
exists. At the C> type: 
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DIR/W 


You should now see all the files contained on your C drive. 
If a CONFIG.SYS file already exists start with STEP 1, if no 
CONFIG.SYS file exists, begin with STEP 2. 


STEP 1. In order to view the contents of the 
current CONFIG.SYS file type the following at the 
system prompt: 


TYPE CONFIG.SYS er > 


The contents of the file should now be displayed. 
If the file contains the commands FILES=20 and 
BUFFERS=20, then your system is already properly 
configured and there is no reason to do STEP 2. 
Otherwise, on a separate sheet of paper, copy the 
contents’ of that file exactly as 1t appears oon the 
screen. 


STEP 2. To create a new CONFIG.SYS file enter at 
the system prompt: 


COGMEGCON; CONDIG-.SYS <cr> 
then type: 


EILES=20 Ere 
BUFFERS=20 <cr> 


If required, add the commands that where copied to 
the separate sheet of paper during STEP 1. Do not 
add any other FILES= or BUFFERS= commands’ to this 
new file. Remember. one command per line and 
follow it with a <cr>. When you are done building 
the new CONFIG.SYS file, finish by typing: 


a 


2 <er> (mete = CTRL key) 


NG@we cUrh Of your computer, then turn it backeon. 
This last action will put the new CONFIG.SYS file 
into effect. Once this file is built there is no 
need to repeat the above procedure. The CONFIG.SYS 
will automatically be in effect when the computer 
is turned on. 


3.2 NEED FOR SUBDIRECTORIES 
The PMAS software application must be run  fromesyour 
computer’ s hard disk. The program has designed into it the 


ability to handle several different types of messes.(e.g. 
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Wardroom, CPO, Flag or Captain’s mess) In order to maintain 
the financial record of several different messes on the same 
microcomputer, a copy of PMAS must be installed in each of 
several different subdirectories. Your C: is also known as a 
root directory. Under this root directory you need to create 
several subdirectories. These subdirectories will contain 
the individual copies of PMAS that will be required for each 
type of mess. The following names are suggested for 
subdirectory titles: 


CEO 
WARRANT 
WARDROOM 
CAPTAIN 
UNIT 
FLAG 


These titles will be used throughout the manual and it would 
be to your advantage to adopt them also. To help in 
understanding the subdirectory concept refer to Figure 1 
below. 


=: we ee ee ee oe 
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Only create the number of subdirectories that are required 
for your type of. ship. For example, there msy he no 
requirement to maintain mess records for a unit commander or 
flag mess aboard your ship. 


3.3 CREATING SUBDIRECTORIES 
To create a subdirectory type the following at the C>: 
MKDIR <PATH> “Gi 
where <PATH>. is one of the previously given set of names for 
subdirectories. For example, if you need to create three 


subdirectories to contain the copies of PMAS required to 
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handle the records for the Captains, Officer’s and Chief's 
messes then at the C> type 


MKDIR CAPTAIN <Cr> 
MKDIR WARDROOM SC 
MKDIR CPO ci a 


You can view the subdirectories you have just created by 
typing DIR/W at the C>. 


3.4 LOADING SUBDIRECTORIES WITH PMAS 


Once the subdirectories have been created on the hard disk, 
PMAS can be copied into them. For discussion purposes, we 
will assume we have created a WARDROOM subdirectory and now 
are going to load it. With this user’s manual you should 
have also received two 5 1/4 inch floppy disks, one’ labeled # 
1 and the other labeled #2. Put the disk labeled #1 into the 
mearive of the computer. At the @€>"type: Ae ey > Tire 
system prompt on the screen should now read A>. At the A> 


type: 
Sore mee: \ <PAPH> ser 


where <PATH> 1s the ‘desired subdirectory destination. 
Continuing our wardroom example, the exact command would be: 


COPY *.* C:\WARDROOM <cr> 


At this time you should receive an indication that files are 
being copied to the hard disk. Next remove disk #1 from the 
A drive and replace it with disk #2. At the A> type the same 
command that was used to load disk #1. To repeat type: 


COPY *.* C:\WARDROOM BS a 
When the file transfer is complete, the process of loading 
PMAS to your system’s hard disk for a specific subdirectory 
is complete. Repeat the process of loading subdirectories 


for every subdirectory that you have created. 


3.5 STARTING THE PROGRAM 


When you first turn on your computer it should come up in the 
root directory for the C drive. To operate PMAS we need to 
be in the subdirectory for the mess for which we want to 
transact business. To move from the root directory to the 
proper subdirectory, you need to issue a change directory 
command at the C>. Use the following command: 
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CD eae ae > ~<CEe 


where <PATH> is the desired subdirectory destination. 
Continuing our wardroom example, the command would be: 


CD WARDROOM 


Once this command is issued, you are now operating solely 
within the subdirectory named WARDROOM. To return to the 
root directory after a session with PMAS type: 


CD ees > 


Once you are in the proper subdirectory (e.g. WARDROOM), just 
type MESS at the system prompt to access PMAS. The next 
thing you will see is the PMAS initialization screen. 


? 


4. TAILORING PMAS TO YOUR MESS 


PMAS needs to be provided information about your ship and the 
type of mess you operate. This information is only required 
once as it is stored by PMAS for future reference. This 
information should be entered the first time you use the 
program or in the event that certain facts about the mess 
change. To tailor PMAS to your mess select code 1 - SYSTEM 
UTILITIES from the MAIN MENU. You will now see the UTILITY 
PROGRAMS MENU. From this menu, select code 1 - £4SET UP 
PROGRAM PARAMETERS. Input screen UT-O002 will now be before 
you. Most of the questions on this screen and the remaining 
Inpue screens for parameter establishment are self- 
explanatory. The next few paragraphs provide background 
information on the inputs that were anticipated to raise some 
questions. (NOTE: you may not be asked all of the questions 
for which background information is provided. ) 


4.1 SUBSISTING FROM THE GENERAL MESS. SCREEN UT-O002 


Some Officer messes, due to lack of proper facilities or 
other constraints, buy individually prepared meals from the 
Food Service Officer. This type of mess is generally found 
on newer and (or) smaller ships of the fleet. Messes that 
buy bulk provisions and prepare their meals in wardroom 
facilities do not subsist from the general mess. 


4.2 STANDARD MEAL PRICES. SCREEN UT-003 


Messes that subsist from the general mess buy individual 
meals at a Navy standard price. These prices are published 
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and updated annually in NAVSUP INST 4061.9 SERIES. fas s 
Pnstpuceiom. Is "available from the Food Service Officer. 
Remember these prices usually change annually and PMAS must 
be informed of these changes. 


4.3 MAINTAINING MESS SHARE AT SPECIFIED LEVEL. SCREEN UT- 
005 


This screen will ask you to input the value at which you 
desire to maintain the mess share. PMAS, by referring to 
your input, will automatically maintain the mess’ share at 
your specified level by making adjustments to mess member's 
mess bills. This feature prevents wild fluctuations in the 
mess share from month to month. A word of caution, when 
entering a value for this screen, you must take into account 
the value of the mess share as it was calculated on the last 
financial statement. For example, if the last calculated 
mess share was $38.00 and you set the mess share to be 
maintained at $50.00, the mess bills at the end of the 
current month would be increased to meet the new mess share 
goal. If such a large jump in the mess share was desired, it 
is best to accomplished this goal over a couple of months. 
Additionally, remember that during any one month certain 
transactions that affect: net worth also have their impact on 
the mess share. When in doubt, do not vary the amount 
entered on this screen , unless an intentional decrement or 
increment is desired, from the mess’ share found on the last 
financial statement. 


4.4 METHOD FOR CHARGING MEMBERS FOR MEALS. SCREEN UT-004 


Messes that do not subsist from the general mess have two 
basic options for charging mess members for meals. The first 
method consists of distributing the cost of running the mess 
equally among all members. This option is by far the most 
prevalent among messes afloat. Second, these messes have the 
option of charging on a per meal basis. This per meal option 
can only be used if the mess was operated in port for the 
entire month. See NAVSUP PUB. 486 VOL. II para. 3111 for 
further details. 


4.5 MEAL PRICES FOR NON-MEMBERS. SCREEN UT-004 


Messes that subsist from the general mess will charge the 


Standard meal price for meals sold to non-member. In the 
case of a non-subsisting mess, meal prices have _ to be 
determined. These meal prices are determined by reviewing 


the food cost and total meals eaten for a particular month. 
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When PMAS is first activated for a particular mess, it has no 
means of determining historic costs; therefore, the user must 
enter prices for breakfast, lunch, supper and holiday meals. 
After the first month of mess operations under PMAS, the 
program will automatically provide suggested meal prices and 
use them in calculating non-member mess bills. 


4.6 ENLISTED BASIC ALLOWANCE FOR SUBSISTENCE. SCREEN UT-006 


In a mess that does not subsist from the general mess, 
enlisted personnel consume provisions purchased by the mess. 
The mess is therefore due reimbursement based on a formula 
that requires the enlisted BAS rate. The current rate can be 
obtained from the Disbursing Officer. 


aa ? 


5. CONVERTING MESS RECORDS FROM MANUAL TO PMAS 


PMAS needs to be informed about the present financial 
situation of your mess. PMAS has included a specific utility 
program to assist you in the conversion process. The key 
factor to the conversion process is that the manual records 
must be in balance before transferring the information to 
PMAS. Consequently, the best time to convert to PMAS is 
right after the monthly close out of accounts) and the 
preparation of the Monthly Financial Operating Statement. 





5.1 BEGINNING THE PROCESS 


From the MAIN MENU select code 1- SYSTEM UTILITIES. You 
will now the see the UTILITIES PROGRAMS menu. From this menu 
select code 2 - INITIALIZE DATABASES. Next you will see a 
Short paragraph explaining the process. (WARNING: Once you 
pass this point all databases except the database containing 
mess member information will be erased!!! ] 


S.l.a SYSTEM INITIALIZATION VALUE SCREEN. SCREEN UT-007 


If you have decided to continue, screen UT-007 will now be on 
the monitor. You will prompted to provide the value of the 
inventory brought forward, the amount of cash brought forward 
and the value of the mess share brought forward. This 
information can be found in blocks titled, INVENTORY OF 
PROVISIONS, CASH ON HAND END OF MONTH, MESS SHARE END OF 
MONTH ,respectively, on the Monthly Financial Operating 
statement. 
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5.1.b SUGGESTED MESS BILL. SCREEN UT-O12 


Mhass information can be obtained from block titled 
RECOMMENDED MESS BILL FOR NEXT MONTH on the Monthly Financial 
Operating Statement. When this amount has been entered you 


will then be asked if you have any outstanding accounts 
receivable to enter. Depending on your situation enter Y for 
~aoror N for NO. 


5.1.c ACCOUNTS RECEIVABLE ENTRY SCREEN. SCREEN UT-008 


By referring to the RECORD of ACCOUNTS RECEIVABLE, finalized 
during the monthly close out process, you should have a 
complete list of all OUTSTANDING accounts receivable. Each 
one of the entries on this record must be entered into the 
computer. Do not batch post mess bill for a particular 
month. Outstanding mess bill amounts must be posted for each 
member. Note: the first block on the screen asks for the 
name/fentity owing money to the mess. The input into this 
block is left to the user’s discretion with one exception. 
If the money is owed by a mess member (or ship-rider) that 
block MUST be filled in with his/her social security number. 
The input format for the social security number is 9 digits; 


use no spaces or dashes. Social security numbers are 
required because they are a convenient unique identifier of a 
mess member (or ship-rider). You will be required to enter 


the date on which the transaction occurred. Use MM/DD/YY 
format. On that same screen you will see a small menu of 
selections describing the purpose of the outstanding accounts 


receivable. Choose one. If you choose the caption OTHER you 
Will be provided a small memo field to enter your own 
purpose. Do not forget to include the amount of the 
transaction in the block provided. The program will allow 
you to continue making entries until you choose not to. You 
Will then be asked if you have any outstanding accounts 
payable to enter. Depending on your situation enter Y for 


YES or N for NO. 


5.1.d ACCOUNTS PAYABLE ENTRY SCREEN. SCREEN UT-010 


By referring to the RECORD of ACCOUNTS PAYABLE, finalized 
during the monthly close out process, you should have a 
complete list of all OUTSTANDING accounts payable. Each one 
of the entries on this record must be entered into the 
computer. Do not batch post any entries. Note: the first 
Dblock on the screen asks to whom the money is owed. The 
input into this block is left to the user’s discretion with 
one exception. If the money is owed to a mess member (or 
Ship-rider) that block MUST be filled in with his/her social 
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security number. The input format for the social security 


number is 9 digits; use no spaces or dashes. Social security 
numbers are required because they are a convenient unique 
identifier of a mess member (or visitor). You will be 
required to enter the date on which the transaction occurred. 
Use MM/DD/YY format. On that same screen you will see a 
small menu of selections describing the purpose of the 
outstanding accounts payable. Choose one. 


Purpose E - MEALS PURCHASED FROM THE GALLEY should only be 
selected by messes that subsist from the galley and buy 
individual meals from the food service officer. If OTHER is 
chosen, you will be provided a short memo field in which to 
record your own purpose. The requisition number entry is 
provided to record the serial number of provision documents 
from the food service officer. Do not forget to enter the 
amount of the transaction. You may continue to enter 
accounts payable as long as required. Next you will be asked 
if you desire ee) enter information concerning mess 
membership. Since you are initiating PMAS for the first time 
you will answer Y for YES. 


5.1.e MESS MEMBER/USER ENTRY SCREEN. SCREEN TR-012 


Before you actually begin to enter member information, you 


must be aware of who to enter. Enter members who have paid a 
mess share in the past or those who have been entered in 
accordance with section 5.1.c as owing a mess share. ibe 


other words, if someone checks during the conversion process 
do not add him/her at this point. There is another process 
for new member check-in!!! If you are amess that receives 
COMRATS payments for enlisted members assigned to subsist and 
work in the mess, you must also add these enlisted personnel 
to the computer database. When entering the social security 
number, enter only 9 digits; no dashes or spaces are allowed. 
In the STATUS block enter M, if the person is a mess member 
or E if the person is an enlisted member assigned to work the 
mess. When the last entry is made and verified to this 
screen (TR-012), screen UT-Ol11 will appear on the monitor. 
This new screen will ask you to record the mess share the 
member paid upon joining the mess. It may be impossible to 
determine from manual records the amount the member had paid. 
If this is the case leave blank. You may continue to enter 
members as required. When you have completed entering your 
mess members and users, the conversion process to PMAS is 
complete. Further entries into PMAS will be as the result of 
everyday transactions and monthly financial processing, which 
are explained later in this manual. 


6. MORE ON THE UTILITY PROGRAMS MENU 
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So far in this manual we have explained UTILITY PROGRAMS MENU 
options 1, 2 and 3. (SET UP PROGRAM PARAMETERS, INITIALIZE 
DATABASES AND CHANGE PASSWORD). Some discussion on the 
remaining two options are in order before we begin to use 
PMAS extensively. 


6.1 PRINT CURRENT DATA FILES 


From the MAIN MENU select code 1- SYSTEM UTILITIES. You 
will now be viewing the UTILITY PROGRAMS MENU. Fronehins 
menu select code 4 - PRINT CURRENT DATA FILES. When this 
selection is made, the current contents of the Transaction 
and Mess Member databases are sent to the printer. You may 
exercise this option at any time you desire to check the 
contents of these databases. 


6.2 DATA FILE RECOVERY , 


By exercising this option you can return your databases to 
the condition they were in as of the last data archive. In 
section 2.1 of this manual it was stated that the PMAS 
databases on your hard disk were copied to your Data Backup 
Disk every time you exited PMAS. (ended a session with PMAS) 
If an unrecoverable error was generated during the current 
session with PMAS it is possible to restore your databases to 
the condition they were in prior to the current session. 158, 
you were following the procedures as laid out in section 
2.1.a, you have a DATA Backup Disk A anda Data Backup Disk 
B. It is important for you to use the data disk in which the 
hard disk data bases were most recently copied to. Insert 
that disk into your A drive and complete the following. From 
the MAIN MENU select code 1 - SYSTEM UTILITIES. You will now 
be viewing the UTILITY PROGRAMS MENU. From this menu select 
code 5 - DATA FILE RECOVERY. When the process is complete 
you will be returned to the current menu. 


Upon completion of this process your databases will be 
restored to contain the data that they held as of the last 
archive. At this point, it would be wise to print the 
current data files (code 4 on ‘the UTILITY PROGRAMS MENU) to 
see the current entries in the Transaction and Mess Member 
databases. You will note there are no entries from the 
session you were working on prior to executing data recovery. 
Reenter the transactions as required. 


6.3 CATASTROPHIC RECOVERY 
Sometimes having the ability to return the databases toa 
previous session’ s condition, as described above, may not be 


enough. If you find yourself ina situation where simple 
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data recovery is insufficient or where a counterbalancing 


entry is not appropriate for correcting an error, there is a 
way out. Using the procedure outlined in section 5 of this 
manual, you could "restart" the recordskeeping process. 


First, you would have to return to the last correct Monthly 
Financial Operating Statement and use the data contained on 


that form as the initial input into PMAS. From there you 
would have to reenter all transactions required to bring you 
back to the present. If your last accurate financial 


statement was two months ago, it is easy to see that a lot of 
reconstructive work would have to be done. There is one 
feature of this type of restart procedure that differs from 
those procedures outlined in section 5. When you are asked 
if you desire to add mess members and you know that the 
members database was error free prior to the restart, answer 
N for NO. As mentioned in section 5.1, the mess member 
database will only be deleted if you elect to build a new 
database. If you respond to the prompt with an’N for NO, 
then the mess member database will remain as 1S. Remember, 
although this procedure is available, it should only be 
exercised in the most extreme of circumstances. 


7. ‘TRANSACTION PROCESSING 


Once you have tailored’ PMAS to your mess (Section 4) and 
converted from manual recordsKeeping (Section 5), you are 
ready to conduct mess recordskKeeping business using PMAS. 
Under the manual recordskKeeping system, an event triggers an 
action from the mess treasurer. These events are such things 
as the receipt of a provisions bill from the Food Service 
Officer, the checking in of a new mess member or a mess 
member paying his/her bill. These same events can also be 
handled by PMAS. The remainder of this manual will show you 
how to handle these events within your new automated 
recordskeeping environment. 


7.1 TRANSACTION PROCESSTNG CONCEPTS 


PMAS transaction processing was designed with one basic 
concept in mind. This concept is simple. You can not pay a 
bill or collect money unless PMAS knows a bill exists or that 
money is due the mess. In some cases it will be your 
specific responsibility to make sure PMAS is aware of amounts 
owed by the mess (accounts payable) or is aware of amounts 


due the mess (accounts receivable). In other cases, PMAS 
creates the accounts payable or receivable based on your 
responses to certain questions. This concept will become 


clearer to you as begin to work with PMAS. 
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7.2 HOW TO PROCESS A TRANSACTION 


When you desire to process a transaction, select code 2- 
PROCESS TRANSACTIONS from the MAIN MENU. You will now see 
screen M-O2 TRANSACTION INPUT MENU before you. Based on the 


type of transaction you are trying to process select one of 
the six choices on the menu. 


In order to best explain how to handle a specific 
transaction, the rest of this section of the manual will be 
organized by the specific events that confront mess 
treasurers. All directions given in this section will assume 
that the user is already at screen M-02, TRANSACTION INPUT 
MENU. 
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7.2.a NEW MEMBER CHECK-IN 


DISCUSSION: Certain transactions must occur when a new 
member checks into the mess. Normally a mess treasurer will 
assess a new member amess’7 share (except in C.P.O. messes) 
and a prorated mess bill (except in C.P.O. and subsisting 
messes). Based on the information entered to establish 
program parameters,(Section 4) PMAS will automatically 
perform and record all the necessary assessments. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
5 - ADD/DELETE MESS USERS. Screen M-025 ADD/DELETE MESS 
USERS menu will now be on the screen. From this menu select 
code 1 - ADD A MESS USER. Input screen TR-O12 NEW MEMBER 
INFORMATION will appear. 


Enter the information on the screen as required. Ensure the 
member’ s SSN is entered accurately. All future transactions 
with this member will be keyed through his/her SSN. 


Input for the entry STATUS should be M. M stands for member. 


If PMAS determines that the new member owes a partial mess 
bill, screen TR-O1O will appear next. You will then be 
requested to provide the’ number of days the new member was 
attached to the ship during his/her check-in month and the 
total number of days in that month. 


Once you have reached the screen that asks if you desire to 
add another new member, PMAS has, if appropriate, completed 
the following: 

Enrolled the individual as a member of the mess. 

Assessed the member a mess share. 

Assessed the member a partial mess bill. 
Any money owed by the member, as a result of being checked 
in, will be automatically recorded to the database. These 
amounts due will be reflected on the monthly mess bill. If 
it is necessary to know these amounts immediately, you can 


print out the database contents in accordance with section 
6.1. 
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7.2.b ADDING ENLISTED PERSONNEL TO THE DATABASE 


DISCUSSION. Messes that are true private messes; that is, 
messes that do not subsist from the main galley, must include 
Mess Specialists and Mess Cooks assigned to work the mess in 
their database. Enlisted personnel are included so the mess 
Can receive credit for their food costs in the form of 
Commuted Rations. Messes that subsist from the galley should 
not include enlisted personnel in their database. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 


5 - ADD/DELETE MESS USERS. Screen M-025 ADD/DELETE MESS 
USERS menu will now be on the monitor. From this menu select 
code 1 - ADD A MESS’ USER. Input screen TR-O1l2 NEW MEMBER 


INFORMATION will appear. 


Enter the enlisted person’ s name, SSN and rate. '° Input for 
the entry STATUS should be E for Enlisted. The status code & 
prevents the calculations of mess shares and mess bills for 
enlisted personnel assigned to the mess. 


Upon completion of screen TR-O12, you will be asked if there 
are any more members/users to enter. Respond Yes or No 
accordingly.’ 
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7.2.c PREPARING FINAL BILL FOR DETACHING MESS MEMBER 


DISEUSS IGN. Depending on the type of mess, mess members 
may be due mess share refunds, mess bill refunds or members 
may owe partial mess bills. PMAS will automatically 


determined, based on program parameters (Section 4), what 
combination of the above is appropriate for a detaching 
member. PMAS will request specific information in order to 
perform the required calculation. In the case of a 
subsisting mess, the procedure below should only be utilized 
to prepare a final bill for a detaching member if the monthly 
mess bill provided during the end of month financial process 
is not sufficient to cover all meals that should be charged 
to the member’s account. PMAS will review the database and 
determine any previous amounts still owed to or owed by the 
member. The bill produced is truly a final biil. Use of 
this procedure will produce a hardcopy bill on your printer. 
If members are anticipated to check out early in the month 
(say on the Ist), plan to complete your end of month 
financial reporting for the previous month in a timely manner 
so as to facilitate the member’s check out. It 1S important 
to remember that you can not check departing members out 
during a current month prior to closing out your record forma 
previous month. 


This procedure sets up a mess member to be deleted from the 
database. To actually close out amembers account refer to 
section /,2-d. 


HOW TO. From the TRANSACTION INPUT MENU (M-02) select code 5 
~ ADD/DELETE MESS USER. M-025 ADD/DELETE MESS USER will now 
be on the screen. Select code 2 - PREPARE A DETACHING BILL. 
You will be asked to enter the SSN for the detaching member. 
Enter 9 digits with no spaces or dashes. 


If you are a subsisting mess, screen TR-Ol11l will appear 
requesting you provide the number of breakfast, lunch, dinner 
and holiday meals chargeable during the detaching month. ie 


you are preparing the member's final bill a day cr so before 
he/she detaches, you should ask what meals he/she plans to 
eat before departure. Include them in the final count. 
Additionally, ensure that those meals are recorded as 
crargeable, so your records and the Food Service Officer s 
record agree. 

If you are a non-subsisting mess, you will be asked if the 
member has gone on leave during his/her detaching month. The 
leave you are concerned with here is leave taken before the 
detaching date. If you respond with Y for YES, you will be 
requested to provide the number of days leave taken and the 
total number of days in the month. Next screen TR-0O10 will 
appear. You will be required to enter the number of days the 
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member was attached to the ship in his/her detaching month. 
Leave taken has no effect on how you respond to this 
question. If a member was detached from the ship on the 20th 
of the month and had taken 5 days leave, you would enter that 
he/she had been assigned 20 days during the month. 
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7.2.a CLOSING OUT A MEMBER'S ACCOUNT 


DISCUSSION. If the procedures outlined in section 7.2.c have 
been used to prepare a final bill or the monthly mess bill 
sufficiently covers a members account and the mess has 
settled with that member, use the procedures below to close 


out the member's account. Only close out the member's 
account if it has been settled in full. This procedure 
allows no provisions for partial payments to or partial 
collections from the member. Once this procedure has been 


exercised, the member will be marked for deletion from the 
database. 


HOW TO. From the TRANSACTION INPUT MENU (M-02) select code 5 


- ADD/DELETE MEMBERS. Screen M-025 ADD/DELETE MESS USERS 
menu will appear next. Select code 3 - CLOSE OUT MEMBER’S 
ACCOUNT. 


Fd 


You will first be asked to provide the SSN for the member 
whose account you wish to close out. The database will then 
be searched and the name and financial summary for that SSN 
Will be displayed. You will then be asked to confirm that 
the member displayed is indeed the correct individual. If 
you respond with Y for YES, PMAS assumes that you have 
already made the appropriate collections (or payments) from 


(to) the individual. In'other words, there is no need to 
take any further actions to notify PMAS of collection from or 
payment to the detached member. The member is then marked 


for deletion. 
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7.2.e PREPARING A BILL FOR A SHIP-RIDER 


DISCUSSION. From time to time, messes provide meals to non- 
members of the mess. These non-members may be civilian 
technical representatives, shipyard personnel or members from 
other commands. If these personnel are not specifically 
guests of the mess or the guest of a member of the mess they 
will be required to pay for their meals. 


The procedure below should be used to calculate a final bill 
for a departing ship-rider or in the case of extended visits 


a monthly mess bill. For example, let’ s suppose that a 
ship-rider reported aboard 25 June and his’) anticipated 
departure was 6 July. In this case you would want a bill 


prepared for the meals chargeable for the period 25 through 
30 June. This procedure would request the number and type of 
meals chargeable, perform the required calculations and then 
produce a bill. The ship-rider could then pay a monthly mess 
bill as would the members of the mess. When it came time for 
the ship-rider to depart on 6 July, you would, again, utilize 
the procedure below to prepare a final bill. Again, the 
procedure will require you to enter the number and type of 
meals the ship-rider should be charged for. Of course, you 
would only enter information on meals chargeable for the 
period 1 through 6 July. PMAS would then print a departing 
bill summarizing all outstanding amounts owed by the ship- 
rider. If the ship-rider had failed to pay his 30 June mess 
bill, PMAS will automatically include that on the final bill. 


PMAS uses either the Navy standard price (subsisting messes) 
or meal prices derived from the monthly food costs (non- 
subsisting messes) to calculate a ship-rider’s bill. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
6 - PREPARE FINAL BILL FOR SHIP-RIDER.You will then be asked 
to provide the name and SSN for the departing ship-rider. The 
entry for the SSN should contain only 9 digits; use no spaces 
or dashes. Keep a record of the ship-rider’s SSN: as it will 
be required to post the cash collection. After you provide 
the count of breakfast, lunch, dinner and holiday meals. a 
bill will be produced on your printer. 
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7.2.£ DELETING ENLISTED PERSONNEL ASSIGNED TO THE MESS 


DISCUSSION. Messes that do not subsist from the galley, 
provide meals to the enlisted personnel assign to work the 
mess. The meals provided to these enlisted personnel are 
prepared from provisions purchased by the mess. The mess is 
therefore due reimbursement for those costs associated with 
feeding enlisted personnel. When enlisted personnel are 
finished with their assignment they should be removed from 
the database. 


HOW TO. From the TRANSACTION INPUT MENU (M-02) select code 5 
- ADD/DELETE MEMBERS. Screen M-025 ADD/DELETE MESS USERS 
menu will appear next. Select code 3 - CLOSE OUT MEMBER’S 
ACCOUNT. (NEVER select code 2 - PREPARE A DETACHING BILL when 
deleting Mess Specialist and Mess Cooks from the database. ) 
Once code 3 is selected you will be required to enter the SSN 


for the enlisted person you desire to delete. When entering 
the SSN, use no spaces or dashes. You will receive name 
confirmation of the person whose SSN you have entered. If 


you indicate that this is indeed the person you wish to 
delete, that person is marked for deletion. 
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7.2.g POST RECEIPT OF PROVISIONS BILL FROM FSO 


DISCUSSION. The Food Service Officer will, on a periodic 
basis, bill the mess for the bulk provision that your mess 
has received from his/her organization. In PMAS all bills 
must be entered into the database before they can Se paid. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
2 - RECORD AMOUNTS OWED BY THE MESS. Once code 2 is 
selected, a data input screen will appear on the monitor. 
You will be requested to provide to whom the bill is owed, 
the amount of the bill and for what purpose. On the screen 
will be a small menu which will allow you to choose the 
option that best describes your transaction. Since we are 
trying to enter a provisions bill from the FSO, choose A. 
When A is chosen, you will be asked to provide the last three 


digits of the bill’s requisitions number. This screen (TR- 
003) was included to accommodate a future change to the 
NAVSUP Publication 486 Volume MII. Until that change is 


promulgated, enter any number you desire. You have properly 
informed PMAS that a bill exists and can now take the 
required steps to pay the bill. Section 7.2.j refers. 
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7.2.h POST RECEIPT OF PROVISIONS BILL FROM VENDOR 


DISCUSSION Private messes periodically buy provisions from 
outside sources. These outside sources can be anything from 
the local supermarket to the base commissary. PMAS requires 
all bills to be posted to the computer before they can be 
paid. For example, suppose that you went to the local 
supermarket and purchased $20.00 worth of groceries for the 
mess. Even though this was a cash transaction, you would 
first follow the instructions below to enter that $20.00 as 
an amount owed by the mess. Now that PMAS is aware that a 
bill exists, it can now be paid in accordance with section 
Tse 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
2 - RECORD AMOUNTS OWED BY THE MESS. Once code 2 is selected 
a data input screen will appear on the monitor. You will be 
required to enter to whom the bill is owed, the amount of the 
bill and the purpose of the account payable. Since we are 


posting the receipt of a vendor bill, select choice B. You 
have now properly informed PMAS that a bill exists and can 
now take the required steps to pay that bill. section 7-22 
refers. 
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7.2.i POST RECEIPT OF A MISCELLANEOUS BILL 


DISCUSSION. The mess may on occasion purchase items other 
than provisions. These "other" items can range from going 
away mementoes for departing members to flowers for a family 
member of a member of the mess. PMAS can handle these type 
of purchases. Even though these purchases may be handled on 
a cash bases, PMAS must be informed of the amount owed by 
utilizing the procedures below. Once PMAS is aware that a 
bill exists, the bill can be paid in accordance with section 
team. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
2 ~ RECORD AMOUNTS OWED BY THE MESS. Once code 2 is selected 
an input screen will appear on the monitor. You will be 
requested to provide to whom the bill is owed, the amount of 
the bill and the purpose of the purchase. Since we are 
posting the receipt of a miscellaneous bill, select. C. Once 
“you have entered C, screen TR-004 will appear providing an 
input space for you to describe the purpose of the 
transaction. The information you enter on this screen will 
assist you in easy recall of what the money was spent for. 
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7.2.j POST PAYMENT OF PROVISIONS BILL FROM FSO 


DISCUSSION. If you have previously "informed" PMAS of an 
amount owed for a provision bill from the Food Service 
Officer in accordance with section 7.2.g, you may post the 
expenditure of funds used to cover that bill utilizing the 
procedure below. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 


4 - post CASH EXPENDITURES. You will now see the POST 
PAYMENT FOR menu. From this menu select code 1 - PROVISIONS 
BILL FROM FSO. This will then activate a database search for 
all outstanding FSO bills. The bi lic amas they are 


encountered in the database, are displayed on screen TR-OO5. 
At the bottom of this screen you will be asked to confirm 


whether or not this is the correct transaction. If you 
answer Y for Yes, then the bill being displayed will be 
marked as paid and you will be returned to the menu. If you 
want to ray more bills start the procedure over again. pis 


you answer WN for NO, the next bill in the database, if any, 
Will be displayed and you again will be asked to confirm 
whether or not this is the bill you want to pay. 


If you reach the end of file designation without finding the 
bill you wanted to pay, refer to section 7.2.g. 
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7.2.k POST PAYMENT OF A PROVISIONS BILL FROM A VENDOR 


DISCUSSION. If you have previously "informed" PMAS of an 
amount owed for a provision bill from a vendor in accordance 
with section 7.2.h, you may post the expenditure of funds 
used to cover that bill utilizing the procedure below. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
4 - POST CASH EXPENDITURE. You will now see the POST PAYMENT 
FOR menu. From this menu select code 2 - PROVISIONS BILL 


FROM A VENDOR. This will then activate a database search for 
all outstanding vendor provisions bills. The bills, as they 
are encountered in the database, are displayed on screen TR- 
00S. At the bottom of this screen you will be asked to 


confirm whether or not this is the correct transaction. If 
you answer Y for Yes, then the bill being displayed will be 
marked as paid and you will be returned to the menu. iaavou 


want to pay more bills start the procedure over again. If 
you answer N for NO, the next bill in the database, if any, 
Will be displayed and you again will be asked to confirm 
whether or not this is the bill you want to pay. 


If you reach the end of file designation without finding the 
bill you wanted to pay, refer to section 7.2.h. 
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7.2.1 POST PAYMENT FOR MEALS PURCHASED FROM THE FSO 


DISCUSSION This option should only be exercised by messes 
that subsist from the galley. The amount due for meals 
purchased from the FSO is entered during the end of month 
financial reporting. PMAS assumes that the mess treasurer 
makes the payment after the current months financial 
processing is complete. (e.g., June's bill for meals 
purchased is paid in July). 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
4 - POST CASH EXPENDITURES. You will now see the POST 
PAYMENT FOR menu (M-024). From this menu select code 3- 
MEALS PURCHASED FROM FSO. Selecting code 3 will initiate a 
database search for the correct bill. When the bill is 
located it will be displayed on screen TR-005. You will then 
be asked if the transaction displayed should be marked as 
paid.Answering Y for YES will cause the transaction to be 
marked as paid. Answering N for NO will cause the 
transaction to remain as an outstanding accounts payable. 
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7.2.m POSTING PAYMENT OF MISCELLANEOUS BILLS 


DISCUSSION. If you have previously "informed" PMAS of an 
amount owed for a miscellaneous bill in accordance with 
section 7.2.i, you may post the expenditure of funds used to 
cover that bill in accordance with the procedures listed 
below. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
4 - POST CASH EXPENDITURES. You will now see the POST 
PAYMENT FOR menu (M-024). From this menu, select code 4- 
OTHER EXPENDITURES. The database will then be searched for 
all outstanding miscellaneous bills. The bills as they are 
encountered in the database are displayed on screen TR-OO5. 
At the bottom of this screen you will be asked to confirm 


whether or not this is the correct transaction. If you 
answer Y for YES, then the bill being displayed will be 
marked as paid and you will be returned to the menu. If you 
want to pay more bills start the procedure over again. it 


you answer N for NO, the next bill in the database, if any, 
will be displayed and you will again be asked to confirm 
whether or not this is the bill you want to pay. 


If you reach the end of file designation without finding the 
Poeiyou Wanted to pay, refer to section 7.2.1. 
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7.2.n POST COLLECTION OF CASH FROM A MESS MEMBER 


DISCUSSION. Money will be collected from mess members as the 
result of monthly mess bills, mess shares due or special 
assessments due. PMAS is made aware of these amounts) due by 
the member check-in process, the member detaching process or 
the creation of monthly mess bill process. The mess 
treasurer, after using the aforementioned processes, need 
only concern himself with the posting of cash collections. 


Once the cash is physically collected from mess members, you 
must post the amount collected to PMAS. PMAS will 
automatically start the payment process with the member's 
oldest debt. Additionally, PMAS wiil automatically track the 
full history of outstanding amounts owed by a member and 
report it on the monthly mess bill. In other words, PMAS 
will accept partial payments On member’s accounts without 
forcing the mess treasurer to keep track the’ member's 
outstanding amounts. PMAS wll not allow you to posta 
collection amount that is greater than what is owed by that 
member. Do not use this section to post cash that has been 
received by departing mess members in full payment of final 
jopbebslioy For departing mess member collections refer to 
section 7.2.d. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
3 - POST CASH COLLECTIONS. You will then see screen M-023 
CASH COLLECTION OPTIONS menu. From this menu, select code 1- 
CASH RECEIVED FROM MEMBERS/USERS. You will then be asked to 
enter the SSN for the member from which the collection was 
made. When entering the SSN, use no spaces or dashes. You 
will then be shown the name that corresponds with the SSN 
that you have just entered. If by chance you entered the SSN 
for another (wrong) member of the mess, you can enter 0.00 in 
the amount collected and exit the procedure without harm. 
Assuming that you have reached the correct member, post the 
amount of money collected from the member in the block 
provided. 
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7.1.0 POST CASH COLLECTION FROM SHIP-RIDER 


DISCUSSION. If a monthly or detaching mess bill was prepared 
for a ship-rider (section 7.l.e), and cash was received from 
the ship-rider, a collection can now be posted to PMAS. Once 
a ship-rider has paid in Pua. his/her account is 
automatically closed out and his name and SSN are dropped 
from the database. PMAS will accept partial payment on 
amounts owed, but when dealing with ship-riders it is best to 
accept payment in full. PMAS will prevent you from posting a 
collection amount that is greater than the amount owed. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
See Ost CASH COLLECTIONS. You will then see screen M-023 
CASH COLLECTION OPTIONS menu. From this menu, select code 1- 
CASH RECEIVED FROM MEMBERS/USERS. You will then be asked to 
enter the SSN for the ship-rider from which the collection 
was made. When entering the SSN, use no spaces or dashes. 
You will then be shown the name that corresponds with the SSN 
you have just entered. If by chance you entered the SSN for 
another (wrong) member or ship-rider, you could enter 0.00 in 
the amount collected and exit the procedure without harm. 
Assuming that you have reached the correct ship-rider, post 
the amount of money collected from the ship-rider in the 
block provided. 
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7.1.p POST RECEIPT OF COMMUTED RATIONS PAYMENT 


DISCUSSION: Messes that do not subsist from the galley, 
provide meals to enlisted personnel assigned to work the 
mess. Since these meals were produced with provisions paid 
for by the mess, the mess is due reimbursement. This 
reimbursement comes in the form of a commuted rations payment 
from the Disbursing Officer. The end of month financial 
close out process calculates the amount due and records it to 
the database. The mess treasurer, inthis case, need only 
concern himself with the posting of the receipt of payment. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
3 - POST CASH COLLECTIONS. Next screen M-023 CASH COLLECTION 
OPTIONS menu will appear. From this menu select code 2 - CASH 
RECEIVED FROM COMRATS PAYMENT. Generally, the database will 
contain one outstanding Commuted Rations payment due. Just 
the same, the database will be searched for all transactions 


of the desired type. When found, the transaction will be 
displayed on screen TR-005. You will then be asked if the 
transaction displayed is the correct one. If you respond 


with a Y for YES, PMAS considers the amount listed on the 
display as collected and will return you to the menu. If you 
respond with N for NO, PMAS will leave the displayed 
transaction as outstanding and look for the next occurrence 
of the desired transaction. 


NOTE: Pmas will not be aware that a Commuted Ration payment 
is due until after the end of month financial reports are 
completed. For example, PMAS will not be aware of an amount 
due for enlisted meals eaten in the month of June, until the 
June financial reports are processed. Trying to post the 
receipt of June’ s Commuted Rations payment prior to that 
point will prove to be unsuccessful. 
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7.1.q POSTING MISCELLANEOUS AMOUNTS DUE THE MESS 


DISCUSSION. On occasion the mess may find itself ina 
Situation where it is owed money from sources other than the 
"normal" sources. (e@€.g., mess members, ship-riders, commuted 
rations payment) To illustrate, suppose that coffee mugs 
were ordered using mess funds and when they arrived they were 
damaged. When the vendor was contacted, he requested the you 
return the mugs and he further stated that he would forward a 
refund check in thirty days. That vendor now owes the mess 
money. PMAS must be informed that money is due before an 
actual cash collection can be posted. The procedure outlined 


below will “inform” PMAS that an entity owes money to the 
mess. The posting of the actual cash collection is covered 
rm section /.ivr. NOTE: This function should only be 


exercised to record unusual amounts due the mess. Accounts 
receivable normally associated with running the mess; such as 
mess bills due, mess shares due or special assessments due, 
are handled automatically by PMAS in response to input in 
specific situations. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
1 - RECORD AMOUNTS DUE THE MESS. Screen TR-OO1l will now be 
on the mom tor: You will be required to enter the 


name/fentity owing money to the mess, the amount owed and the 
reason for the account receivable. 
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7.1.r POSTING CASH COLLECTION FOR MISCELLANEOUS REASON 


DISEGUSSONe If you have previously recorded an amount due 
the mess in accordance with section 7.1.q, you can post the 
cash received, as the result of that amount due, utilizing 
the procedure below. 


HOW TO. From the TRANSACTION INPUT MENU (M-02), select code 
3 - POST CASH COBEECI IONS You will now see the CASH 
COLLECTION OPTIONS MENU (M-0O23) . From this menu, select 
code 3 - CASH RECEIVED FOR OTHER REASONS. The database will 
then be searched for all outstanding miscellaneous accounts 
receivable. The transactions as they are encountered in the 
database are displayed on screen TR-OOS. At the bottom of 
this screen you will be asked to confirm whether or not this 
is the correct transaction. If you answer Y for Yes, then 
the amount due being displayed will be marked as collected 
and you will be returned to the menu. If you want to collect 
more accounts receivable start the procedure over again. If 
you answer N_ for NO, the next miscellaneous account 
receivable in the database, if any, will be displayed and you 
will again be asked to confirm whether or not this is the 
amount due you want to collect. 


If you reach the end of file designation without finding the 
amount due you wanted to collect, refer to section 7.2.q. 
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8. PROCESSING MONTHLY FINANCIAL REPORTS 





PMAS has the capability to review the database and prepare 
the Monthly Financial Operating Statement for Messes Afloat, 
NAVSUP FORM 1367 and all supporting documentation. The 
Peeeess Ore preparing this reporter 1s query based; that is, 
PMAS will request information not found in the databases 
(e.g., ending provisions inventory) from the user. 


When a mess treasurer elects to process monthly financial 
reports, PMAS defaults to atrial balance mode. This mode 
allows the mess treasurer to close out his/her records and 
have a Monthly Financial Operating Statement prepared for 


review. The mess treasurer has an unlimited number of 
attempts to perfect the trial balance before selecting to 
make the trial balance final. This method allows the mess 


treasurer the opportunity to find and correct errors before 
allowing them to permanently affect the mess. financial 
status. Records must be finalized before a new month's 
business can be started. 


PMAS will utilize the information entered during the 
tailoring process (section 4) to determine how to prepare 
your financial reports. There are several different mess 
“situations’™. For example, there are Officer and Chief Petty 
Officer messes. These messes may have one of the following 
Characteristics: subsisting, subsisting but the mess also 
buys small amounts of bulk provisions, and non-subsisting 
with two mess bill payment options. PMAS recognizes this 
fact and tailors the records close out process based on this 


knowledge. The rest of this section will provide the 
background required for the query screens you will encounter 
during this process. Remember, due to the variety of mess 
"situations", you will not see all of the query screens for 


which background information is provided. 


PMAS will provide the full requirement of records needed to 
run a private mess. Those reports generated under the trial 
balance mode will be so indicated with a ~** TRIAL BALANCE 
**" in the date block. Reports generated under the finalize 
balance option will contain the actual date. The following 
reports, if appropriate, are provided as output from this 
process: 


Monthly Financial Operating Statement 
Computation of Commuted Ration Form 
Accounts Receivable Report 

Accounts Payable Report 

Record of Collections Report 

Record of Expenditures Report 

Monthly Transaction Report 

Record of Mess Members 
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Member s Mess Bill Report 
Recommended Mess Bill / Meal Price Report 


8.1 PREPARING TO PROCESS END OF MONTH REPORTS 


It is important to have all the information that PMAS will 
require on hand prior to beginning the records close out 
process. Below is a check list of items to consider prior to 
beginning the process. 


All types of messes 


Ensure all collections and expendtcumes Bormea. 
funds have been posted to PMAS. 


Ensure all bills received but not paid are posted 
to PMAS.- Take special care to post all provisions 
bills (FSO or Vendor) for the month. 


Know the current amount of cash on hand, including 
amounts is bank checking accounts. 


Have provision and non-provision inventories for 
the end of the month available. 


Do you need to prepare monthly mess bills for ship- 
riders? See section 7.2.e 


Have you closed out accounts for members who have 
detached during the month? See section 7.2.d. 


Ensure you have the names, SSN’s and periods of 


leave/TAD taken by mess members during the month. 
(may not be required in all cases) 


SUBSISTING MESSES 
Do you hold the monthly bill, with supporting 
NAVSUP 1046, #$=ffrom the Food Service Officer 
detailing individual meals purchased? 
Are the Navy Standard meal prices current? If not, 
see section 4.2. 

NON-SUBSISTING MESSES 
Are the enlisted personnel currently assigned to 
work the mess listed in the database? Have you 


added new arrivals, deleted departures? 
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Do you know the exact number of days each enlisted 
member waS considered as asSigned to the mess? 


Ensure you have total meal counts, by category, for 
meals eaten by Officers, Guests of the mess and 
enlisted personnel assigned to the mess. 


If exercising the pay by meal option as outlined in 
NAVSUP PUB. 486 Vol. II para. 3111-1(b), ensure you 
have meal counts for breakfast, lunch, dinner and 
holiday meals for each member. 


8.2 PERFORMING THE RECORDS CLOSE OUT PROCESS 


To begin the monthly financial reporting process, select code 
3 - GENERATE FINANCIAL REPORTS from the MAIN MENU.’ You will 
again be asked to confirm your desire to start the process. 
This second confirmation allows you the opportunity to return 


to the menu in the case of an erroneous’ selection. At 
certain points during the process, you will be prompted to 
provide input to PMAS. These prompt screens are discussed 
below. 


8.2.a MEMBER LEAVE/TAD REPORTING. SCREEN EM-007 


In situations where a mess bill rebate calculation may be 
required, you will be asked if any mess members have gone on 


leave/TAD during the month. If you respond with Y for YES, 
you will be required to enter the member's’ SSN. SSN’s are 
entered with no spaces or blanks. You will then receive name 
confirmation for the SSN that was’ entered. Screen EM-007 


will require the entry of the number of days leave/TAD taken 
and the total number of days in the month. Note, if a member 
is on leave/TAD over the end of a month, you should report 
the number of days absent by the end of the month. For 
example, let’s assume your roommate went on leave starting 15 
June and plans to return 14 July. When you process June s 
financial reports, you would report that he/she had taken 15 
days during the month. Do not wait to his/her return and 
report the entire 30 days leave during July's financial 
processing. 


8.2.5 PROVISION/NON-PROVISION ENDING INVENTORIES. SCREEN EM- 
002 

You will be prompted to provide the end of month inventory 

figures for both provision and non-provision inventories. 

The ending provisions inventory is usually taken by the mess 


treasurer and a member of the audit board. Individual meals 
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purchased from the Food Servi@e Officer are not Go Be 
considered as inventory. 


The entry of a non-provisions ending inventory figure allows 
amess to reduce the impact of large dollar value purchases 
against the net worth. For example, mess members may 
authorize the purchase and distribution of ship s plaques to 
departing members. These plaques can be purchased for $40.00 
each in minimum quantities of ten. A $400.00 purchase would 
have an adverse impact on the net worth if expensed allin 
one month. By utilizing the non-provisions inventory option, 
you can distribute that impact over the number of months. As 
the mess hands out plaques, you would reduce the value of the 
ending non-provisions (Inventor aa corresponding amount. 
Note, the tracking of the non-provisions items 1s a manual 
process. PMAS only provides the ability to enter an end of 
month inventory figure. You should be able to justify 
increases or decreases in this figure with supporting 
paperwork. 


8.2.c DETERMINATION OF MEALS SERVED. SCREEN EM-003 


In order to calculate the Commuted Ration amount due the 
mess, the percentage of total meals eaten by officers and 
enlisted personnel must be Known. PMAS will calculate these 
percentages based on the total meals eaten by officer and 
enlisted personnel. Screen EM-O003 will require the entry of 
total meals eaten for the following three categories: 


Officer, Officer’s guest and ship-riders 
(If CPO mess, count CPO meals here) 


Guests of the mess 
Enlisted personnel 


This information can be found on NAVSUP Form 1046 or some 
locally prepared and maintained form. 


8.2.d ENLISTED PERSONNEL TRACKING SCREEN. SCREEN EM-004 


Part of the calculation for Commuted Rations requires the 
determination of the number of days each enlisted person was 
as assigned to the mess. Situations that would dictate less 
than a full months entry would be arrivals/departures during 
a month, or periods of leave/UA taken. Screen EM-004 will 
display, one at a time, each enlisted person that is recorded 
in the database and request you enter the number of days each 
person was assigned to the mess. 
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8.2.e RECOMMENDED MESS BILL/SPECIAL ASSESSMENT. SCREEN EM- 
005 


PMAS will automatically produce a recommended mess bill based 
on provision costs and adjustments required to Keep the mess 
share at a specified level. (see section 4.3) 


For a mnon-subsisting mess the screen will display next 
month’s recommended mess bill for each member of the mess. 


For subsisting messes, the amount shown on the’ screen will 
only represent the equal proration of any bulk provisions 
purchased and any adjustments required to keep the mess share 
at the specified level. This recommended mess bill will be 
in addition to any amounts the member owes for individual 
meals purchased from the Food Service Officer. The aggregate 
amount owed by each member will be posted to the monthly 
Member s Mess Bill Report. , 


teeny event, mess treasurer’ Ss may wish to round the amount 
displayed on screen EM-0O05 to the nearest dollar to 
facilitate cash collection. 


SPECIAL NOTE: Messes that do not subsist from the galley can 


exercise two payment options. Option 1 is the equal mess 
bill option. Option 2 permits mess bills based on individual 
meals eaten. This option can only be exercised by messes 


that are to operate in port for the full calendar month. (See 
NAVSUP PUB. 486 VOL. II para. 3111 for details) If you are a 
mess that intends to operate under option 2 rules for the 
upcoming month, change the recommended mess bill displayed on 
screen EM-005 to 0.00. Remember, when financial reports are 
finalized, tell PMAS of the change in payment options! 
(section 4 applies) 


If you are a mess that is currently operating under option 2 
and plan to return to option 1 for the upcoming month, you 
will need to provide your best estimate for a recommended 
mess bill for that upcoming month. One method of estimation 
is to use a mess bill amount from a previous month with a 
Similar operating tempo. Realize, that in this case, members 
will be paying a mess bill for individual meals eaten during 
the current month and an estimated bill for the upcoming 
month. Again, when financial reports are finalized, remember 
to tell PMAS of the change in payment options! 


Screen EM-005 will also allow you to charge the membership a 
special assessment. Special assessments allow you to meet 
extraordinary expenses without negatively affecting the mess 
Share. For example, let’ s suppose the mess’ has planned a 
going-away party for the Commanding Officer. i nwacdcroen to 
the party, it was decided to present him/her with a departing 
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gift. Based on these anticipated expenses, you could charge 
a special assessment to cover this event. If an amount other 
than 0.00 is originally displayed in the special assessment 
block, this amount is PMAS’ recommendation for the minimum 
special assessment that should be charged. This situation 
will only occur with certain types of messes. The minimum 
assessment recommendation is made by reviewing the current 
value of the mess share and the level at which you specified 
to maintain the mess share. (see section 4.3) In any event, 
the amount entered into this block will be assessed to each 
member of the mess. 


8.2.£ FSO BILL FOR INDIVIDUAL MEALS PURCHASED. SCREEN EM- 
009 


In subsisting messes, you will receive a bill from the Food 
Service Officer detailing the amount owed for individual 


meals purchesed by the mess. This bill will be accompanied 
by a NAVSUP Form 1046 listing meals chargeable to mess 
members, official guests of the mess’ and ship-riders. The 


mess recoups this expense by charging the membership and 
ship-riders, either, departing or monthly mess bills. The 
cost of meals eaten by official guests is absorbed by the 
mess. 


NOTE: PMAS assumes the Food Service Officer is not charging 
the mess for individual meals consumed by mess specialists 


and mess cooks assigned to your mess. In a subsist 
Situation, enlisted personnel eat the same meals that are 
being served in the galley. To charge the mess’ for these 


meals and then reimburse the mess through a Commuted Rations 
payment is an added administrative burden. If you are being 
Charged for these meals, other billing arrangements with the 
Food Service Officer must be made. PMAS, ina subsisting 
mess situation, has no way of recovering the cost of these 
meals. 


8.2.g MEALS CHARGEABLE TO MESS MEMBERS. SCREEN TR-O1] 


In subsisting messes or non-subsisting messes, exercising the 


pay by meal option (see section 4.4), the recording of 
individual meals chargeable is necessary. PMAS will require 
the number of breakfast, lunch, dinner and holiday meals 
chargeable to each member for the month. Screen TR-Ol1 will 


display the members of the mess, one at a time, and request 
meal total information. The mess bill will then be computed 
and displayed at the bottom of the screen. Bills computed 
for subsisting mess members use the Navy Standard Price. 
Bills computed for non-subsisting mess members’ use meal 
prices based on food costs. Subsisting messes should compare 


3 


_ 220 


the amount displayed on screen TR-Oll with that found on the 
NAVSUP Form 1046. Resolve discrepancies before continuing. 


8.2.h FINALIZE END OF MONTH REPORTS. SCREEN EM-0OO1 


In PMAS you may run unlimited trial balances. When you are 
convinced the trial report are accurate, you may elect to 
finalize them. Screen EM-OO1 will ask if you desire to 
finalize reports. If you decide not to finalize the trial 
balance, pre-balance conditions will be restored and you will 
be returned to the MAIN MENU. Since you did not finalize, 
you are again operating back in the current month. Tf you 
elect to finalize the trial balance, another set of reports 
Will be produced with the phrase ** TRIAL BALANCE ** removed 
from the reports. You may now begin posting the business for 
the new month. If an error is discovered after the final 
report option is selected, you may be able to recover by 
utilizing the procedures outlined in section 6.2. 


8.2.1 FINAL REPORT DATE. SCREEN EM-OO1 

If you have selected to finalize the trial reports, you will 
have to provide PMAS with a date for the reports. This date 
should always be the last'’day of the month for which the 
reports are being produced. 


8.2.j] SPECIAL ASSESSMENT. SCREEN EM-006 


screen EM-O06 will allow you to charge the membership a 


special assessment. Special assessments allow you to meet 
extraordinary expenses without negatively affecting the mess 
share. For example, let’s suppose the mess’ has planned a 


going-away party for the Commanding Officer. In addition to 
the party, it was decided to present him/her with a departing 
Sat t . Based on these anticipated expenses, you could charge 
a special assessment to cover this event. 


If an amount other than 0.00 is displayed in the entry block, 
this amount is PMAS’ recommendation for the minimum special 
assessment that should be charged. This determination is 
made by reviewing the current value of the mess share and the 
level at which you specified to maintain the mess share. (see 
section 4.3) In any event, the amount entered into this 
block will be assessed to each member of the mess. 
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APPENDIX G 
PRIVATE MESS ACCOUNTING DEMONSTRATION 


THIS SOFTWARE APPLICATION MUST BE RUN FROM YOUR COMPUTER'S HARD 
DRIVE. 


BEFORE YOU START, TAKE A BLANK FLOPPY DISK AND FORMAT IT IN 
ACCORDANCE WITH YOUR COMPUTER’S USER'S MANUAL. WHEN THE DISK IS 
FORMATTED REMOVE IT AND SET IT ASIDE FOR A FEW MINUTES. 


THE FOLLOWING ARE SOME CONCEPTS THE USER SHOULD FAMILIARIZE 
HIMSELF/HERSELE WITH PRIOR TO RUNNING THE PROGRAM. 
ENSURE THAT YOUR PRINTER REMAINS POWERED ON DURING THE 
DEMONSTRATION RUN. FAILURE TO DO SO MAY CAUSE THE 
PROGRAM TO RUN ERRATICALLY. 


WHEN ENTERING DATA, HITTING A CARRIAGE RETURN OR ENTER 


KEY MAY BE REQUIRED TO HAVE THE DATA ACCEPTED. IN 
PLACES WHERE IT IS REQUIRED THE SYMBOL <CR> WILL BE 
USED. 


GREAT PAINS HAVE BEEN TAKEN TO ENSURE THE USER HAS THE 
OPPORTUNITY TO REVIEW Hes HER INPUT PRIOR “Se 
FINALIZATION. AFTER YOU ARE REQUIRED ITO INPU@ 
INFORMATION YOU WILL ALWAYS BE ASKED IF IT IS CORRECT. 
THIS WILL BE YOUR CHANCE TO CORRECT YOUR ERRORS PRIOR 
TO DATABASE ACCEPTANCE. IF THE DATA IS FINE ENTER & 
FOR YES. IEF YOU DESIRE TO MAKE A CHANGE ENTER N FOR 
NO. YOU MAY NOW CHANGE ANY OF THE INPUT VALUES. 


WE WANT TO HELP FACILITATE THIS PROCESS ASwhiver AS 
POSSIBLE. IF YOU ARE HAVING PROBLEMS WITH THE PROGRAM 
CALL US AT THE FOLLOWING NUMBER. 


LCDR JER TWIGG LT MIKE MADDEN 
AUTOVON 878-2174 OR COMMERCIAL (408) 646-2174 


IEF WE ARE NOT THERE WE WILL RETURN YOUR CALL AS QUICKLY 
AS POSSIBLE. 


WITH THIS DEMONSTRATION OUTLINE YOU SHOULD HAVE RECEIVED TWO 
FLOPPY DISKS, LABELED #1 AND #2. THESE ARE THE DISKS THAT NEED 
TO BE COPIED TO YOUR HARD DRIVE. WHEN OPERATING WITH A HARD 
DRIVE THE FOLLOWING SYSTEM PROMPT SHOULD APPEAR: C>. AT THIS 
PROMPT TYPE A:. THE SYSTEM PROMPT SHOULD NOW READ A>. NOW, TAKE 
THE DISK LABELED #1 AND INSERT IT INTO YOUR A DRIVE. AT THE 
SYSTEM PROMPT TYPE: 


COPY *2* "G2 -Cre 


1 


222 


YOU SHOULD RECEIVE SOME INDICATION THAT FILES WERE INDEED COPIED 
TO YOUR HARD DRIVE. NEXT REMOVE DISK #1 FROM THE A DRIVE AND 
INSERT DISK #2. AT THE SYSTEM PROMPT TYPE: 


COPY *.* C: <CR> 


THE PROCESS OF LOADING THE SOFTWARE APPLICATION TO YOUR HARD 
DRIVE IS NOW COMPLETE. RETURN THE SYSTEM PROMPT BACK TO ITS 
NORMAL DEFAULT BY TYPING C: <CR>. 


INSERT THE DISK YOU FORMATTED EARLIER INTO THE A DRIVE. AT THE 
SYSTEM PROMPT ENTER MESS <CR> 


Mee FIRST efHING YOU SHOULD SEE IS THE PROGRAM IDENTIFICATION 
SCREEN. HIT ANY KEY TO CONTINUE. 


NEXT YOU WILL BE ASKED FOR THE SYSTEM PASSWORD. TYPE FORBIN 
eh , . 2 


YOU WILL NOW SEE THE MAIN MENU. SELECT CODE 1. YOU WILL NOW BE 
AT THE UTILITY PROGRAMS MENU. WE WILL NOW TAILOR THE PROGRAM TO 
mom onl P. SELECT CODE I. YOU ARE NOW IN THE SET-UP PROGRAM. 
PRESS ANY KEY TO CONTINUE. YOU WILL AGAIN BE ASKED TO MAKE SURE 
YOU WANT TO CHANGE THE SET-UP PARAMETERS. TYPE Y FOR YES. 


ANSWER THE ON-SCREEN QUESTIONS IN THE FOLLOWING MANNER: 


1. YOUR SHIP’S NAME <CR> 
2. » <Gre 
SaeNe<CR> 


YOU WILL NOW BE ASKED THE METHOD BY WHICH YOU CHARGE YOUR MEMBERS 
FOR SUBSISTING. SELECT B <CR>. ACCEPT MEAL PRICES AS LISTED BY 
mrt rING <CR> AT EACH INPUT. 


NEXT, YOU WILL BE ASKED AT WHAT LEVEL YOU WANT THE MESS SHARE TO 
REMAIN. ENTER 50.00 <CR> 


THE PROGRAM WILL REQUEST THE VALUE OF ENLISTED BAS. THIS VALUE 
IS REQUIRED FOR THE COMPUTATION OF COMRATS. ENTER 4.00 <CR> 


YOU WILL NOW BE RETURNED TO THE UTILITY PROGRAM MENU. SELECT 
CODE 6 TO RETURN TO THE MAIN MENU. 


NOW WE WILL START A SIMULATED MONTH’S BUSINESS. THE FOLLOWING 
VALUES HAVE ALREADY BEEN LOADED INTO THE DATABASES. 


CASH BROUGHT FORWARD $1350.00 

BEGINNING INVENTORY $300.00 

MEMBERS ASSIGNED TO THE MESS 23 

ENLISTED PERSONNEL ASSIGNED TO WORK THE MESS 6 
MESS SHARE FROM LAST MONTH $50.00 


1, wa, a, a, 


* MESS BILL COMPUTED LAST MONTH $60.00 
* MEAL PRICES: BREAKFAST .50 LUNCH 1.00 DINNER 1.00 
HOLIDAY MEAL 1.25 


MONTHLY TRANSACTIONS 


1. RECEIVED A BILL FOR $30.00 FROM FLOWERS BY PLANT FOR THE 
FLOWERS THE MESS BOUGHT FOR THE CO’S WIFE. FROM THE MAIN MENU 


SELECT CODE 2 (PROCESS TRANSACTIONS ). YOU WILL NOW BE IN THE 
TRANSACTION INPUT MENU. SELECT CODE 2 (RECORD AMOUNTS OWED BY 
THE MESS). FILL IN THE SCREEN AS FOLLOWS: 


BILLED OWED TO : FLOWERS BY PLANT <CR> 
AMOUNT OWED : 30.00 <CR> 
ENTER SELECTION : C 


PURPOSE : FLOWERS FOR CO’S WIFE 


s 


ANSWER Y TO THE QUESTION: DO YO"! DESIRE TO MAKE ANOTHER ACCOUNTS 
PAYABLE ENTRY? 


2. BILLS GROCERY SENT YOU A BILL FOR THE ITEMS THAT Wiz 
SAGINARIO PICKED UP YESTERDAY. FILL IN THE SCREEN AS FOLLOWS: 


BILL OWED TO : BILL’S GROCERY <CR> 
AMOUNT OWED: 40.00 <CR> 
ENTER SELECTION: B (FOR PROVISIONS FROM VENDORS ) 


ANSWER Y TO THE QUESTION: DO YOU DESIRE TO MAKE ANOTHER ACCOUNTS 
PAYABLE ENTRY? 


om THE FOOD SERVICE OFFICER SENT UP A BILL FOR SOME ITEMS THE 
MESS CATERER WANTED FOR A WARDROOM GATHERING. FILL IN THE SCREEN 
AS FOLLOWS: 


BILL OWED TO : FSO <CR> 
AMOUNT OWED : 40.00 <CR> 
ENTER SELECTION: A (FOR PROVISIONS FROM THE FSO) 


THE PROGRAM WILL NOW ASK FOR THE REQUISITION NUMBER OF THF FOOD 
SERVICE DOCUMENT. ENTER OO1. ANSWER N TO THE QUESTION: DO YOU 
DESIRE TO MAKE ANOTHER ACCOUNTS PAYABLE ENTRY. THIS WILL NOW 
RETURN YOU TO THE TRANSACTION INPUT MENU 


4. WE ARE NOW GOING TO RECORD AN AMOUNT DUE THE MESS. SELECT 
CODE 1. YESTERDAY YOU RETURNED SOME DAMAGED SWO PINS TO THE NAVY 
EXCHANGE. THEY ISSUED YOU A CREDIT SLIP FOR $50.00. YOU EXPECT 
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Diemer) weeds CHECK %[N THE “MAIL IN THE NEAR FUTURE.. FILL IN 
THE SCREEN AS FOLLOWS: 


NAME/ENTITY OWING 
MONEY TO THE MESS: NAVY EXCHANGE <CR> 
AMOUNT DUE: 50.00 <CR> 

REASON: CREDIT MEMO <CR> 


ANSWER N TO THE QUESTION: DO YOU DESIRE TO MAKE ANOTHER ACCOUNTS 
RECEIVABLE ENTRY? YOU WILL THEN BE RETURNED TO THE TRANSACTION 


INPUT MENU. 


5. ENS. JONES REPORTED ABOARD THIS WEEK AND YOU WANT TO ADD HIM 
TO THE DATABASE. SELECT CODE 5 (ADD/DELETE MEMBERS). YOU WILL 
NOW BE AT THE ADD/DELETE MESS USERS MENU. SELECT CODE 1. ea Br) 
IN THE SCREEN AS FOLLOWS: 


NAME OF NEW MEMBER: JONES, JOHN P <CR> 


SSN: 191919191 
STATUS: M (FOR MEMBER) 
DATE JOINED: 11/15/87 

RANK : ENS <CR> 


ANOTHER SCREEN WILL APPEAR. FILL IN AS FOLLOWS: 


NUMBER OF DAYS MEMBER ONBOARD 
DURING MONTH 15 


NUMBER OF DAYS IN MONTH 30 


AT THIS POINT THE MEMBER HAS BEEN ADDED TO THE DATABASE. THE 
AMOUNTS THE NEW MEMBER OWES FOR HIS MESS SHARE AND PARTIAL MESS 
BILL HAVE BEEN AUTOMATICALLY CALCULATED AND RECORDED TO A 
DATABASE. LET S ADD ANOTHER MEMBER. ANSWER Y TO THE PROMPT. 
FILL IN THE SCREEN AS FOLLOWS: 


NAME OF NEW MEMBER: NIMITZ, CHESTER A 


SSN: 100000009 
STATUS M 

DATE JOINED 11/20/87 
RANK Lic 


Bee IN THE NEXT SCREEN WITH: 


NUMBER OF DAYS MEMBER 
ONBOARD DURING MONTH 10 


NUMBER OF DAYS IN MONTH 30 


ANSWER N TO THE QUESTION: DO YOU WISH TO ADD ANOTHER MEMBER? YOU 
WILL BE RETURNED TO THE ADD/DELETE USERS MENU. 


é. 


Pa gs 


6. NOW LET S WORK UP A REBATE SUMMARY FOR A DEPARTING MEMBER. 
LT. MADDEN WILL BE LEAVING LATER TODAY AND HAS ASKED YOU TO CHECK 
HIM OUT OF THE MESS. SELECT CODE 2 FROM THE ADD/DELETE USERS 
MENU . ENSURE YOUR PRINTER IS ON!! YOU WILL FIRST BE ASKED FOR 
THE SOCIAL SECURITY NUMBER OF THE USER. ENTER 987654321. NEXT, 
IT WILL ASK IF THE DEPARTING MEMBER HAS BEEN ON LEAVE DURING THE 
MONTH. SINCE THE C.0O. GAVE HIM FIVE DAYS AFTER HE WAS RELIEVE 
ENTER Y. YOU WILL NOW SEE THE MEMBERS NAME AND A REQUEST FOR 
MORE INFORMATION. FILL IN THE SCREEN AS FOLLOWS: 


NUMBER OF DAYS MEMBER ON 
LEAVE DURING MONTH: OS 


TOTAL NUMBER OF DAYS ; 
IN MONTH 30 


NEXT A SCREEN WILL APPEAR ASKING FOR THE REMAINING INFORMATION TO 
CALCULATE HIS REBATE. FILL IN THE SCREEN AS FOLLOWS: 


NUMBER OF DAYS MEMBER ONBOARD 
DURING MONTH 20 


NUMBER OF DAYS IN MONTH 30 


YOUR PRINTER WILL NOW PRINT OUT A SUMMARY FOR THE DETACHING 
MEMBER. ANSWER N TO THE QUESTION: DO YOU DESIRE TO DELETE 
ANOTHER MEMBER? YOU WILL THEN BE RETURNED TO THE ADD/DELETE USER 
MENU. 


7. YOU FIND LT. MADDEN IN THE WARDROOM AND YOU PRESENT HIM HIS 
REBATE SUMMARY. YOU ASK HIM TO STOP BY YOUR STATEROOM SO YOU CAN 
PAY F-M AND CLOSE OUI HIS ACCOURm SELECT CODE 3 (CLOSE ©UZ 
MEMBERS ACCOUNT). YOU WILL FEIRST BE ASKED TO PROVIDE A SSN. 
ENTER 987654321. THE LOWER HALF OF THE SCREEN WILL NOW CONTAIN 
THE INFORMATION YOU HAVE REQUESTED. SINCE IT IS CORRECT ENTER Y. 
LT. MADDEN S ACCOUNT IS NOW CLOSED OUT. YOU WILL NOW BE RETURNED 
TO THE ADD/DELETE USER MENT’. ENTER CODE 4 TO RETURN TO THE 
PREVIOUS MENU. YOU WILL NOW BE AT THE TRANSACTION INPUT MENU. 


8. NIMITZ STOPS BY YOUR STATEROOM AND STATES HE WANTS TO PAY OFF 
HIS MESS SHARE AND PARTIAL MESS BILL (AMOUNTS DUE GENERATED WHEN 
HE JOINED THE MESS). HE HANDS YOU $70.00. LET’S POST tea. 
COLLECTION OF CASH TO THE DATABASE. SELECT CODE 3 (POST CASH 
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COLLECTION). YOU ARE NOW LOOKING AT THE CASH COLLECTION OPTIONS 
MENU. SELECT CODE 1. Ele NIMITZ S SSN A THE PROMPT: 
LOOOO0O0009. ENTER 70.00 WHEN ASKED FOR THE AMOUNT OF THE 
COLLECTION. THERE ARE NO EFEURTHER COLLECTIONS SO ENTER N WHEN 
ASKED. YOU WILL BE RETURNED TO THE CASH COLLECTION OPTIONS MENU. 
SELECT CODE 4 TO RETURN TO THE PREVIOUS MENU. YOU WILL NOW BE 
LOOKING AT THE TRANSACTION INPUT MENU. 


9. THE FOOD SERVICE OFFICER HAS JUST HANDED YOU THE PROVISIONS 
Sees, FORK TRE MONTE. LET S POST THE AMOUNT OWED TO THE FSO. 
SELECT CODE 2 (RECORD AMOUNT OWED BY THE MESS). Pee IN TRE 
SCREEN AS FOLLOWS: 


BILL OWED TO: FOOD SERVICE OFFICER 
AMOUNT OWED: 695.00 
ENTER SELECTION: A ; 


YOU WILL NOW BE ASKED FOR A REQUISITION NUMBER. ENTER O02. THERE 
ARE NO FURTHER TRANSACTIONS OF THIS TYPE. ENTER N WHEN ASKED IF 
THERE ARE MORE. YOU WILL NOW BE RETURNED TO THE TRANSACTION 
INPUT MENU. 


9. YOU HAVE THE MONEY, SO WE PAY THE FOOD SERVICE OFFICER HIS 
$695.00. SELECT CODE 4 (POST CASH EXPENDITURE). THE NEXT SCREEN 
WILL ASK WHAT THE CASH EXPENDITURE IS FOR. SELECT CODE 1 
(PROVISIONS BILL FROM FSO). YOU WILL BE SHOWN EACH BILL OWED TO 
THE FSO. THE FIRST ONE SHOWN WILL BE SERIAL NUMBER 03001 FOR 
$40.00. THIS IS OBVIOUSLY NOT THE BILL WE WANT TO PAY. TO PASS 
If BY ENTER N AT THE PROMPT. THE NEXT BILL TO BE SHOWN WILL BE 
SERIAL NUMBER 03002 FOR $695.00. Piloetoell! SELBer Y TO 
COMPLETE THE PAYMENT. YOU WILL THEN BE RETURNED TO THE POST 
PAYMENT FOR: MENU. SELECT CODE 6 TO RETURN TO THE PREVIOUS MENU. 
ONCE AT THE TRANSACTION INPUT MENU SELECT CODE 7 TO RETURN TO THE 
MAIN MENU. 


1Ox IT IS NOW TIME TO RUN THE END OF THE MONTH FINANCIAL 
REP@Rio.  ofS8ECT CODE 3 ITO START THE PROCESS. NOSE SHAT THIS 
PROGRAM WAS DESIGNED TO RUN ON A IBM AT OR SIMILAR MACHINE. 
RUNNING THIS PROGRAM ON A SLOWER COMPUTER MIGHT CAUSE THE RUN 
TIME FOR THIS PROCESS TO LAST ABOUT 10 MINUTES. (STILL BETTER 
THAN DOING IT YOURSELF!!) ENSURE YOUR PRINTER IS ON!! 


A. YOU WILL FIRST BE ASKED IF ANY OF THE MEMBERS HAVE 
BEEN ON LEAVE DURING THE MONTH. ENTER Y. YOUR 
ROOMMATE TOM BEST WAS ON LEAVE 10 DAYS THIS MONTH. 
WHEN ASKED ENTER HIS SSN: 273347821. FILL IN THE NEXT 
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SCREEN AS FOLLOWS : 
NUMBER OF DAYS ON LEAVE DURING MONTH 10 
TOTAL NUMBER OF DAYS IN MONTH 30 
HIS LEAVE REBATE HAS BEEN AUTOMATICALLY CALCULATED AND 


POSTED TO JHE DALTAEAo.L. NO MORE MEMBERS HAVE BEEN ON 
LEAVE DURING THE MONTH, SO ENTER N TO THE QUESTION. 


B. YOU WILL NEXT BE ASKED TO PROVIDE AN ENDING 
INVENTORY FIGURE. ENTER 400.00 AT THE PROMPT. 


Ce YOU WILL THEN BE ASKED TO PROVIDE A MEAL SUMMARY 
FOR THE MONTH. FILL IN THE SCREEN AS FOLLOWS: 


OBBICERS, OF RIGER os GUESES: 1000 <CR> , 
GUESTS OF THE MESS: 30 <CR> 
ENLISTED PERSONNEL: 270 <CR>> 
NUMBER OF DAYS IN MONTH: 30 


D. YOU WILL NEXT BE ASKED TO PROVIDE THE NUMBER OF 
DAYS EACH ENLISTED MEMBER HAS BEEN ASSIGNED TO WORK IN 
THE MESS THIS MONTH. THIS “INFORMATION IS REQUIRED TO 
COMPUTE COMMUTED RATIONS. WHEN ASKED ENTER 30 DAYS FOR 
EACH PERSON. 


DURING THE PROCESS A SCREEN WILL APPEAR LISTING A 
SUGGESTED MESS BILL FOR THE NEXT MONTH. THE AMOUNT 
LISTED IS FINE Q@WITH TOU Sse) Hit =e. IT WILL NOW 
PROVIDE YOU AN OPPORTUNITY TO CHARGE THE MEMBERS A 
SPECIAL ASSESSMENT. YOU KNOW THE C.0O. IS DEPARTING 
NEXT MONTH AND THE WARDROOM HAS AGREED TO BUY HIM A 
DEPARTING GIFT. YOU REASON THAT EXTRA CASH WILL BE 
REQUIRED AND YOU DO NOT WANT TO LOWER THE OVERALL VALUE 
OF THE MESS SHARE, SO YOU ENTER 5.00 AT THE PROMPT. 


FEF. NEXT YOU WILL BE ASKED IF YOU WANT TO PRODUCE FINAL 
REPORTS. FOR THE PURPOSES OF THE DEMO, ENTER N. YOU 
WILL BE RETURNED TO THE MAIN MENU. IT IS TIME TO QUIT 
SO SELECT CODE 4. 


THANK YOU FOR YOUR TIME AND ASSISTANCE. 


PLEASE FINISH tee 


ENCLOSED SURVEY AND USE THE ENVELOPE PROVIDED TO RETURN THE 


SURVEY RESULTS TO US. YOU MAY KEEP Tom DISK: 
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APPENDIX H 
PRIVATE MESS SURVEY 


THIS SURVEY IS NOT FOR THE PURPOSES OF ASSESSING YOUR JOB 

PERFORMANCE AS MESS TREASURER. ITS PURPOSE IS TO DETERMINE THE 
DEGREE OF SUPPORT THAT A COMPUTER PROGRAM WE HAVE DEVELOPED WOULD 
PROVIDE TO A MESS TREASURER. 
YOU MAY RESPOND ANNONYMOUSLY. HOWEVER, SHOULD YOU DESIRE TO 
KNOW THE RESULTS OF THIS SURVEY, PLEASE PROVIDE YOUR NAME AND 
ADDRESS BELOW: 

NAME 

ADDRESS 


erty STATE VAN) 


PART I 
USER PROFILE 


iT. WHAT IS YOUR PRIMARY DUTY? 


ai. WHAT RANK DO YOU HOLD? 
cy HOW LONG HAVE YOU BEEN A MESS TREASURER? 
4. HOW LONG IS YOUR TENURE OF MESS TREASURER PLANNED TO 
BE? 
S:: WHAT STATEMENT BEST DESCRIBES YOUR UNDERSTANDING OF THE 


PRIVATE MESS RECORDS-KEEPING SYSTEM? 
ACU « LIMIT TEDee ™BASIC —_ FULL ae COMP LEDGE 
S. HAVE YOU HAD EXPOSURE TO MICRO COMPUTERS PREVIOUSLY? 
SeeNeChe os VERY Bier ieee ee woers ROUTINE — EXTENSIVE 
SURVEY OF PRESENT ENVIRONMENT 
ies WHAT TYPE OF MESS DO YOU PRESENTLY RUN? 
—_ _ SUBSIST FROM THE CALLEY. WE BUY 
INDIVIDUALLY PREPARED MEALS FROM THE FOOD 
SERVICE OFFICER. 
__A TRUE PRIVATE MESS. WE BUY PROVISIONS 


FROM THE FOOD SERVICE OFFICER AND PREPARE 
OUR OWN MEALS. 
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HOW MANY HOURS A WEEK DO YOU SPEND, ON AVERAGE, HANDLING 
MESS RECORDS? 
O-2 Fi’ 3-5 sya 18, 10 OR MORE 


HOW MANY HOURS DOES IT TAKE YOU TO CLOSE ACCOUNTS AND 
PREPARE THE MONTHLY FINANCIAL STATEMENT? 


O=Z Za5 Ses 5-10 10 OR MORE 


WHAT STATEMENT BEST DESCRIBES THE IMPACT THAT THE MESS 
TREASURER JOB HAS ON YOUR SHIPBOARD DUTIES? 


____NO IMPACT WHAT SO EVER 
_____ ALMOST NO IMPACT 
- oo =eSOME IMPACT é 
_____A NOTICEABLE IMPACT 
__ A SEVERE IMPACT 


HOW WOULD YOU RATE THE TURNOVER TRAINING ACCORDED TO YOU 
PRIOR TO YOUR ASSIGNMENT AS MESS TRASURER? 


____NON-EXISTANT 
____OF LITTLE HELP 

____ SOMEWHAT HELPFUL 
____GENERALLY HELPFUL 
____ EXTREMELY HELPFUL 


WHAT STATEMENT BEST DESCRIBES THE CONDITION OF THE RECORDS 
THAT WERE TURNED OVER TO YOU? 


IN GERERAL DISARRAY; NO APPARENT METHOD OF 
ORGANIZATION NOTICEABLE 


SOME ATTEMPTS AT PROPER ACCOUNTING TRIED 


ALL REQUIREMENTS FOR RECORDS-KEEPING WERE 
BASICALLY MET 


A GOOD SET OF RECORDS ALLOWING EASY REVIEW 
OF PAST TRANSACTIONS 


A COMPLETE, NEAT ACCURATE SET OF RECORDS 
THAT WERE INSPECTION READY 
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es WHAT IS THE NUMBER OF MEMBERS IN YOUR MESS? 


S.. DO YOU FEEL THAT THE MESS TREASURER’S JOB KEEPS YOU FROM 
OTHER MORE PRODUCTIVE WORK? 
NO ALMOST NEVER SOMETIMES OFTEN ALWAYS 
Bi DO YOU BELIEVE THAT RECORDS-KEEPING CHORES YOU NOW 


PERFORM COULD BE IMPROVED THROUGH THE USE OF A COMPUTER? 
eS 
____MAY POSSIBLY BE IMPROVED 
Pe CANGES IMPROVED 
_____CAN BE IMPROVED NOTICEABLY 
_____ CAN BE IMPROVED SIGNIFICANTLY 


10. DO YOU FEEL THE TASKS YOU NOW PERFORM COULD BECOME MORE 
BEARABLE THROUGH THE USE OF A PROGRAM LIKE THIS ONE? 


NO, “NOT AT ALL 

___ MAYBE, TO A SLIGHT EXTENT 
____YES, TO SOME EXTENT 

_.. Yes, TO A CGNSIDERABLE EXIENT 


YES, TO A GREAT EXTENT 


Se i Be, BB i ie Be, Be, Be Be Be Ee ie ie ee ee ee ee ee ee ee ee ee 


BEFORE PROCEEDING TO PART II, 


PLEASE RUN THE COMPUTER PROGRAM 


5 2 i Be, ie, A Ae a Be De ae a i ee ee ee ee ee ee ee ee es 
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PART It 


CONTINUE WITH THIS SECTION ONLY AETER YOU HAVE RUN THE 
DEMONSTRATION SOFTWARE. 


1. WHAT STATEMENT BEST DESCRIBES HOW USEFUL YOU FEEL A COMPUTER 
SYSTEM OF THIS KIND WILL BE? 
OF NO USE 
OF VERY LITTLE USE 
OF SOME USE 
VERY USEFUL 


EXTREMELY USEFUL 


ae DO YOU THINK THE NEW SYSTEM COULD RESULT IN THE SAVINGS OF 
YOUR TIME? 


NO, IT WILL SAVE NO TIME 
_____«~AMAY BE, IT WILL SAVE SOME TIME 
YES, IT WILL SAVE SOME TIME 

YES, IT WILL SAVE CONSIDERABLE TIME 


YES, IT WILL BE A GREAT TIME SAVER 


3. DID YOU FIND THE SYSTEM UNDERSTANDABLE AND EASY TO RUN ? 

NO, VERY CONFUSING AND HARD TO RUN 

NO, SOMEWHAT CONFUSING AND NOT CLEAR 
YES, GENERALLY UNDERSTANDABLE AND CLEAR 
YES, VERY UNDERSTANDABLE AND EASY TO RUN 


YES, SURPRISINGLY UNDERSTANDABLE AND 
VERY EASY TO RUN EVEN BY A NOVICE 
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4. 


DO YOU FEEL THAT IF THIS SYSTEM IS USED THE TURNOVER 
PROCEDURES BETWEEN MESS TREASURERS WILL BE IMPROVED AND 
SIMPLIFIED ? 


____NOT REALLY 
____MAY BE TO SOME DEGREE 
____CAN BE TO SOME DEGREE 
____ CONSIDERABLY 
____A GREAT DEAL 
ESTIMATE THE SAVINGS OF YOUR TIME IN HOURS PER MONTH THAT 
COULD BE REALIZED IF THIS SYTEM WERE TO BE USED ON A 
PERMANENT BASIS. 
0-2 2-5 5-7 7-10 ___10 OR MORE 


DO YOU FEEL IF THE SYSTEM IS ADOPTED THAT IT WILL RESULT IN 
MORE ACCURATE AND TIMELY RECORDS-KEEPING? 


____NO; IT WILL CREATE MORE WORK 

____ NOT REALLY 

_____FEEL SOME IMPROVEMENTS WILL OCCUR 

_ FEEL SEVERAL IMPROVEMENTS WILL OCCUR 


FEEL MAJOR IMPROVEMENTS WILL OCCUR 


ADD ANY GENERAL COMMENTS/SUGGESTIONS FOR IMPROVEMENT YOU HAVE 
CONCERNING THE COMPUTER PROGRAM BELOW: 
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